Delphi. Трюки и эффекты

Регистрация типа файла

procedure RegisterAppDocuments();

var

reg: TRegistry;

begin

reg := TRegistry.Create();

reg.RootKey := HKEY_CLASSES_ROOT;

//Вносим информацию о нашем типе файла в реестр

//..само расширение

if reg.OpenKey(\'.mydoc\', True) then

begin

reg.WriteString(\'\', \'TricksDelphi.DocumentSample\');

reg.CloseKey();

end;

//..описание типа файла

if reg.OpenKey(\'TricksDelphi.DocumentSample\', True) then

begin

reg.WriteString(\'\', \'Документ TricksDelphi.DocumentSample\');

reg.CloseKey();

end;

//..значок для файлов MYDOC-типа

if reg.OpenKey(\'TricksDelphi.DocumentSample\DefaultIcon\', True)

then

begin

reg.WriteString(\'\', Application.ExeName + \', 1\');

reg.CloseKey();

end;

//..приложение, открывающее MYDOC-документ

if reg.OpenKey(\'TricksDelphi.DocumentSample\Shell\Open\Command\',

True)

then

begin

reg.WriteString(\'\', Application.ExeName + \' %1\');

reg.CloseKey();

end;

reg.Free();

end;