[Genry]

Скажите, пажалуста, два кода. Один, чтобы программа ставила себя на автозагрузку, и другой, чтобы программа убирала себя с автозагрузки.

[Thrasher]

Предлагаю 2 варианта:

Через Системный реестр:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure SetAutoRun(StrName: ShortString; SetAuto: boolean); var reg: TRegistry; begin Reg := nil; try reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false; reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false); if SetAuto then reg.WriteString(StrName, Application.ExeName) else reg.DeleteValue(StrName); reg.CloseKey; reg.free; except if Assigned(Reg) then Reg.Free; end; end;   SetAutoRun('My Application',true); //добавляем в Автозагрузку   SetAutoRun('My Application',false); //удаляем из Автозагрузки

Через Win.Ini :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure SetAutoRunWinIni(SetAuto:boolean); var WinINI:TIniFile; Warn:string;// флаг контроля, чтобы не запускалось много раз begin WinINI:=TIniFile.Create('Win.ini'); if SetAuto then   begin    WinINI.ReadString('windows','run',Warn);    if Warn<>Application.ExeName then    WinINI.WriteString('windows', 'run',Application.ExeName);  end else  WinINI.Delete('windows', 'run',Application.ExeName); WinINI.Free; end;     SetAutoRunWinIni(True); //добавляем в Автозагрузку   SetAutoRunWinIni(False); //удаляем из Автозагрузки

[Vayrus]

А еще можно в назначенные задания вписать