[Delphi] AutoRun - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
[Delphi] AutoRun
Mewex Дата: Понедельник, 10.04.2017, 21:59 | Сообщение # 1
STEAM SELLER
Сообщений: 475
Статус: Offline
Привет.

Как быстро добавить софт в автозагрузку? - легко

В uses пишем: Registry

В type пишем : procedure AutoRun;

Где-нибудь:

Код
procedure TForm1.AutoRun;
var
Registry: TRegistry;
begin
Registry:= TRegistry.Create();
Registry.RootKey:= HKEY_CURRENT_USER;
Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
Registry.WriteString(ExtractFileName(Application.ExeName), Application.ExeName);
Registry.Free;
end;


Что-бы программа добавилась в автозагрузку, пишем код, например на кнопку:

AutoRun;

Добавлено (10.04.2017, 21:59)
---------------------------------------------
Ап

  • Страница 1 из 1
  • 1
Поиск: