Авто запуск Программы

[Rebel123]

Доброго времени суток. Подскажите пожалуйста как можно сделать чтоб при включении компьютера (когда уже рабочий стол будет виден) программа срабатывало автоматический?!

[MalCer]

Обсуждалось миллион раз уже!
Подключи в раздел uses Registry и пиши такой код:

Var
  T:TRegistry;
begin
  T:=TRegistry.Create;
  T.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run\',false);
  T.WriteString(Text,ParamStr(0));
  T.CloseKey;
  T.Free;
end;

[BOBAH13]

Луший вариант, наиболее корректен по моему мнению для XP, Vista и Seven.

var
  PID: PItemIdList;
  Folder: array[0..255] of WChar;
  obj: IUnknown;
  isl: IShellLinkW;
  ipf: IPersistFile;
begin
  SHGetSpecialFolderLocation(0, CSIDL_STARTUP, PID);
  FillChar(Folder, SizeOf(Folder), 0);
  SHGetPathFromIDList(PID, @Folder);

  obj := CreateComObject(CLSID_ShellLink);
  isl := obj as IShellLinkW;
  ipf := obj as IPersistFile;
  isl.SetDescription('My link''s description');
  isl.SetPath(PWChar(ExtractFilePath(ParamStr(0))));
  isl.SetArguments('');
  isl.SetWorkingDirectory(PWChar(ExtractFilePath(ParamStr(0))));
  Result := (ipf.Save(PWChar(String(Folder) + 'mylink.lnk'), False) = S_OK);
end;

Вроде так, писал так через копи/паст...

[Вавел из ГМТУ]

И куда этот код пропишет программу? Я чтото не приметил разделы реестра

[Пепел Феникса]

Сообщение от Вавел из ГМТУ

И куда этот код пропишет программу? Я чтото не приметил разделы реестра

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