Регистрация своего расширения в реестре -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.12.107.29]

Модераторы: jack128, Rouse_, Krid

Регистрация своего расширения в реестре

Song

Сообщ. #1 , 10.12.03, 06:08

Unregistered

В нижеприведённом отрывке кода регистрируется приложение project1.exe как программа по умолчанию для расширения *. pci

Uses ..., Registry;

...

Procedure TForm1.RegisterFileType(prefix:String; exepfad:String);

Begin

With TRegistry.Create Do

try

RootKey:=HKEY_CLASSES_ROOT;

{ create a new key --> .pci }

OpenKey('.'+prefix,True);

{ create a new value for this key --> pcifile }

WriteString('',prefix+'file');

CloseKey;

{ create a new key --> pcifile }

CreateKey(prefix+'file');

{ create a new key pcifile\DefaultIcon }

OpenKey(prefix+'file\DefaultIcon',True);

{ and create a value where the icon is stored --> c:\project1.exe,0 }

WriteString('',exepfad+',0');

CloseKey;

OpenKey(prefix+'file\shell\open\command',True);

{ create value where exefile is stored --> c:\project1.exe "%1" }

WriteString('',exepfad+' "%1"');

CloseKey;

finally

Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

Begin

RegisterFileType('pci','c:\project1.exe');

End;

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,4045 ] [ 16 queries used ] [ Generated: 28.04.24, 16:32 GMT ]