Добавляем Программу В Автозапуск

[Sascha]

Сейчас мы научимся добавлять вашу созданную программу в среде Delphi в автозапуск. Т.е ваша программа будет запускаться при включении Windows.

Создадим новый проект, или откройте вашу готовый проект Delphi, кинем на форму Checkbox1 с вкладки Standart, кликнем на него два раза, создавая событие OnClick. Перед тем как писать код, добавим в раздел uses — Registry (работа с реестром Windows).

Теперь пишем код в событии OnClick:

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);
reg.WriteString(‘My App’, Application.ExeName);
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;

Вот и все. Запускайте программу, нажимайте на кнопку, перезагружайте Windows, радуйтесь :)