Если ваша программа должна запускаться при каждом запуске Windows, то удобнее всего использовать не папку "Автозагрузка", а реестр. Если вы нажмете на кнопку, то при каждом запуске Windows эта программа будет запускаться. Code uses Registry;
procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; begin Reg := nil; try reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false; reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun', false); reg.WriteString('My App', Application.ExeName); reg.CloseKey; reg.free; except if Assigned(Reg) then Reg.Free; end; end;
|