Открыть с помощью...

[newerow1989]

При открывании какого-нибудь файла запускается нужная программа и открывает этот файл. Не подскажите, как написать в программе, чтобы распознать имя открываемого файла. Например, при открытии файла *.txt по умолчанию запускается программа блокнот и открывает этот файл. Я хочу, чтобы этот файл открывался в моей программе, созданной на Delphi. Однако, моя программа запустилась, НО как открыть файл программно?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   DragAcceptFiles(Handle,true);
end;

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var f:array[0..MAX_PATH] of char;
begin
   If DragQueryFile(Msg.Drop,0,f,MAX_PATH)>0 then
      Caption:=f;
end;

end.

К сожалению, по этому коду такая программа открывает файл только перетаскиванием значка-файла на форму программы и открывает файл. А мне охота двойным щелчком открыть файл.
PS: мне нужно хотя бы получить полное имя открываемого файла, например, Caption:=f; а остальное я сам открою!

[Fahman]

Сообщение от newerow1989

При открывании какого-нибудь файла запускается нужная программа и открывает этот файл. Не подскажите, как написать в программе, чтобы распознать имя открываемого файла. Например, при открытии файла *.txt по умолчанию запускается программа блокнот и открывает этот файл. Я хочу, чтобы этот файл открывался в моей программе, созданной на Delphi. Однако, моя программа запустилась, НО как открыть файл программно?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   DragAcceptFiles(Handle,true);
end;

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var f:array[0..MAX_PATH] of char;
begin
   If DragQueryFile(Msg.Drop,0,f,MAX_PATH)>0 then
      Caption:=f;
end;

end.

К сожалению, по этому коду такая программа открывает файл только перетаскиванием значка-файла на форму программы и открывает файл. А мне охота двойным щелчком открыть файл.
PS: мне нужно хотя бы получить полное имя открываемого файла, например, Caption:=f; а остальное я сам открою!

Если я не ошибаюсь то в реестре можно настроить.... точно не помню где-то видел..

HKEY_CLASSES_ROOT

Как то так...

[newerow1989]

Смотрел реестр, там не во всех расширениях имеется папка ShellNew. Например, в *.pas, *.gif и т.д.

[Iron Monk]

Добавить в коде примерно такое:

if Paramstr(1) <> '' then
Memo1.Lines.LoadFromFile(Paramstr(1));

ну, смотря куда и что загружаем..
Меняем в реестре:

Теперь все текстовые файлы будут открываться в моей программе.

[newerow1989]

А для других расширений тоже самое?
Вставил Paramstr(1), но procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); не срабатывает!

[Iron Monk]

Сообщение от newerow1989

А для других расширений тоже самое?
Вставил Paramstr(1), но procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); не срабатывает!

При чем здесь дроп?

Это если грузить в Мемо.

procedure TForm1.FormCreate(Sender: TObject);
begin
    if Paramstr(1) <> '' then
    Memo1.Lines.LoadFromFile(Paramstr(1));
end;
end.

Вы файл какого формата и куда пытаетесь грузить?

[newerow1989]

Спасибо за помощь!
А файл формата *.gif загружаю в компонент TWebBrowser. (В Windows 7 фотоальбом Windows Live не анимирует gif-рисунки, вот и создаю свою программу)

И еще один вопрос: почему procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); не срабатывает в программе, запущенной в режиме администратора? В обычном режиме работает.

[Iron Monk]

Сообщение от newerow1989

И еще один вопрос: почему procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); не срабатывает в программе, запущенной в режиме администратора? В обычном режиме работает.

Почитайте...