02.03.2009, 02:40
общий
это ответ
Здравствуйте, Алексей Тёмный!
Простой код процедуры в приложении. в Uses добавить модуль Registry;
Также выложил исходный текст программы для вашего удобства.
http://drive.stream24.ru/10811235/
Приложение:
procedure TForm1.btn1Click(Sender: TObject);
var
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER; // Только для текущего польхователя или HKEY_LOCAL_MACHINE для всех
reg.OpenKey('Software', False);
reg.OpenKey('Microsoft', False);
reg.OpenKey('Windows', False);
reg.OpenKey('CurrentVersion', False);
reg.OpenKey('Run', False);
if not reg.ValueExists('MyProgram') then
reg.WriteString('MyProgram','C:\MyProgram.exe')
else
ShowMessage('Программа уже есть в автозагрузке');
reg.CloseKey;
FreeAndNil(reg);
end;