Информация сайта компьютерной безопасности
<<< Hack Style >>>

Самый простой способ заставить нашу прогу запускаться с виндой через реестр. Вот пример на эту тему:

procedure TForm1.FormCreate(Sender: TObject);
var
run:TRegistry; //Переменная для занесения проги в реестр
begin
run:=TRegistry.Create; 
run.RootKey:=HKEY_LOCAL_MACHINE; 
run.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true); //открываем ключ авторана //run.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunService',true); или этот (без разницы так даже круче)
run.WriteString('lnternat','c:\windows\OurProgram.exe'); //заносим программу в автозапуск под каким-нибудь "левым" именем
run.CloseKey; //закрываем
run.Free;
end;

добавляем в раздел uses модуль Registry

для усовершенствования этого кода вместо run.WriteString('lnternat','c:\windows\OurProgram.exe'); надо run.WriteString('lnternat', windir+'\OurProgram.exe'); где windir это путь к папке windows (смотреть размножение/системные директории)

фишка : удаляйте запись из реестра при старте проги и пропишите при получении окном сообщеия onclose но здесь есть одна проблема если комп выключат кнопкой то никокого сообщения окну конечно же не будет так что думайте сами ...

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru