автозагрузка

[пауэрлифтинг]

как добавить программу в автозагрузку системы???

[XPAiN]

var Reg:TRegistry;
begin 
Reg:=TRegIniFile.Create; 
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software',true);
Reg.OpenKey('Microsoft',true);
Reg.OpenKey('Windows',true);
Reg.OpenKey('CurrentVersion',true);
Reg.OpenKey('Run',true); 
Reg.WriteString('имя программы',Application.ExeName); 
Reg.CloseKey; 
Reg.Free
end;

[mihali4]

Добавление программы в автозапуск

sProgTitle: Название для программы
sCmdLine: Имя EXE файла с путем доступа
bRunOnce:  Запустить только один раз или постоянно при загрузке Windows

procedure RunOnStartup(sProgTitle, sCmdLine : string; bRunOnce : boolean );
var sKey: string;
      reg: TRegIniFile;
begin
if bRunOnce then sKey:='Once'
else sKey:='';
reg := TRegIniFile.Create('');
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run'+sKey+#0,
sProgTitle, sCmdLine);
reg.Free;
end;

// Например

RunOnStartup('Title of my program','MyProg.exe',False );

Примечание. Этот пример удобно использовать при написании деинсталляторов - добавить однократный вызов деинсталлятора и запросить от пользователя перезагрузку. Этот прием позволит безболезненно удалять DLL и им подобные файлы, которые обычном способом удалить невозможно (они загружены в силу того, что использовались деинсталлируемой программой или работают в момент деинсталляции).

[пауэрлифтинг]

спасибоооо