как зарегистрировать свою программу в Windows средствами DelphI [D5, WinXP]
Sergant © (2002-03-16 02:56:00)
Подскажите, пожалуйста, как зарегистрировать свою программу в
Windows средствами DelphI? Т.е., чтобы, допустим, моя программа
SuperPPP.exe открывала файлы *.ppp?
lipskiy (2002-03-16 03:01:00) [1]
uses registry;
procedure TForm1.RegisterFileType(prefix:String;
exepfad:String);
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
//create a new key --> .pci
reg.OpenKey("."+prefix,True);
//create a new value for this key --> pcifile
reg.WriteString("",prefix+"file");
reg.CloseKey;
//create a new key --> pcifile
reg.CreateKey(prefix+"file");
//create a new key pcifile\DefaultIcon
reg.OpenKey(prefix+"file\DefaultIcon",True);
//and create a value where the icon is stored -->
c:\project1.exe,0
reg.WriteString("",exepfad+",0");
reg.CloseKey;
reg.OpenKey(prefix+"file\shell\open\command",True);
//create value where exefile is stored --> c:\project1.exe
"%1"
reg.WriteString("",exepfad+" "%1"");
reg.CloseKey;
reg.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterFileType("pci","c:\project1.exe");
end;
Наверх 
ЧАТ |
Орешник |
|
