Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

как зарегистрировать свою программу в Windows средствами DelphI 


Sergant   (2002-03-16 02:56) [0]

Подскажите, пожалуйста, как зарегистрировать свою программу в Windows средствами DelphI? Т.е., чтобы, допустим, моя программа SuperPPP.exe открывала файлы *.ppp?



lipskiy   (2002-03-16 03:01) [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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.032 c
1-90834           kaif                  2002-03-15 23:25  2002.03.28  
Выпадающий список подсказок в произв.месте?


4-91129           Хлор                  2002-01-10 03:31  2002.03.28  
Как игнорировать действия пользователя


1-90874           lipskiy               2002-03-16 16:40  2002.03.28  
Как однозначно проверить, существует ли объект (создан ли, не испорчен ли)?


1-90890           AlexNic               2002-03-17 12:19  2002.03.28  
ShortCut в ActionList


7-91084           WarChilD              2001-12-20 20:43  2002.03.28  
Смена яркости на Рабочем столе