[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Nionov  
Форум » Программирование » Pascal/Delphi » [Delphi] AutoRun
[Delphi] AutoRun
RainbowДата: Понедельник, 17.06.2019, 23:38 | Сообщение # 1

-= Повелитель кодеров =-
Сообщений: 146
Награды: 0
Репутация: 4279
Статус:
Как быстро добавить софт в автозагрузку? - легко

В 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;
 
Форум » Программирование » Pascal/Delphi » [Delphi] AutoRun
  • Страница 1 из 1
  • 1
Поиск: