Регистрация типа файлов в системе и их запуск

← →
Vasek (2004-03-11 15:21) [0]

Уважаемые мастера!
Что необходимо сделать чтобы зарегистрировать свой тип файлов в системе, и какая процедура в моей программе должна вызываться при клике на этом типе файлов.
Буду очень благодарен за пример.

← →
Vasek (2004-03-11 15:52) [1]

Ну неможет быть что-бы НЕКТО не знал! Помогите пожалуйста!

Вот простой пример:

Я хочу сделать чтобы при вызове документа из проводника Win запускалось мое приложение и открывало данный документ (обычный текстовый файл , но с расширением *.my)

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,Registry;

type
TForm1 = class(TForm)
Memo1: TMemo;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
Reg:TRegistry;
begin
// Регистрация типа файлов *.my
Reg := TRegistry.Create;
Reg.LazyWrite:=False;
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
if Reg.OpenKey("\myfile\shell\open\command\", True)
then begin
Reg.WriteString("",""" + ParamStr(0) + "" "%1"");
Reg.CloseKey;
end;
if Reg.OpenKey(".my", True)
then begin
Reg.WriteString("","myfile");
Reg.CloseKey;
end;
finally
Reg.Free;
end;
//действия при клике на файлах *.my
for i:=0 to ParamCount do
Label1.Caption:=Label1.Caption+(ParamStr(i))+#13;
if ParamStr(1)<>"" then Memo1.Lines.LoadFromFile(ParamStr(1));
end;
end.

Регистрация типа файлов в системе и их запуск Найти похожие ветки