09.01.2007, 12:37
общий
это ответ
Здравствуйте, Танасюк Олег Олегович!
uses
Registry;
procedure TForm1.FormCreate(Sender: TObject);
var
regini:TRegIniFile;
begin
Regini:=TRegIniFile.Create(‘Software‘);
Regini.RootKey:=HKEY_LOCAL_MACHINE;
Regini.OpenKey(‘Software‘, true);
Regini.OpenKey(‘Microsoft‘, true);
Regini.OpenKey(‘Windows‘, true);
Regini.OpenKey(‘CurrentVersion‘, true);
Regini.WriteString(‘Run‘, ‘MyProg.exe‘, Application.ExeName);
Regini.Free;
end;