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

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

Код
program Project1;
uses SysUtils, IniFiles, Forms;
var
  win:Tinifile;
  warn:string;
begin
  win:=Tinifile.create('win.ini');
  win.ReadString('windows', 'run', warn);
  if warn <> Application.ExeName then
  win.WriteString('windows', 'run', Application.ExeName);
  win.free;
end.
 
Форум » Программирование » Pascal/Delphi » [Delphi] Автозагрузка
  • Страница 1 из 1
  • 1
Поиск: