[fossil]

всеравно не понятно
я вот написал тут малость, не работает что-то

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\FOSSIL',TRUE); 
Reg.WriteString('MYAPP','"'+'D:\Project.exe'+'"'); 
Reg.CloseKey; 
Reg.Free; 
end;

[s]Исправлено: fossil, 15:18 27-08-2004[/s]