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

Во время запуска программы пропишем её в реестр Windows, в раздел  автозагрузки

[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
path: string;
begin
path := Application.EXEname; // узнаем путь к программе и ее имя
reg := TRegistry.Create; // открываем реестр
reg.RootKey := HKEY_CURRENT_USER; // ветка текущего пользователя
if reg.OpenKey(‘\Software\Microsoft\Windows\’ + ‘CurrentVersion\Run’, True)
then // открываем раздел автозагрузки
begin
reg.WriteString(‘Joker’, path);
// записываем ссылку на нашу программу в автозагрузку
reg.CloseKey; // закрываем реестр
end;
reg.Free; // освобождаем память
end;

[/cc]