Вот пример функции, добавляющей ЕХЕшник в автозапуск
uses
Registry;
function AddExeToAutoRun : Boolean;
var
reg : TRegistry;
begin
Result := False;
reg := TRegistry.Create;
try
if reg.OpenKey('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft \Windows\CurrentVersion\Run', True) then begin
reg.WriteString('MyEXE', ParamStr(0));
Result := True;
end;
finally
reg.Free;
end;
end;
|