Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как запускать мою программу на каждом старте Windows?

Как запускать мою программу на каждом старте Windows?

Пример работает и для Win32и для Win16.

     uses
       Registry, {For Win32}
       IniFiles; {For Win16}

     {$IFNDEF WIN32}
       const MAX_PATH = 144;
     {$ENDIF}

     {For Win32}
     procedure TForm1.Button1Click(Sender: TObject);
     var
       reg: TRegistry;
     begin
       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;
     end;

     {For Win16}
     procedure TForm1.Button2Click(Sender: TObject);
     var
       WinIni : TIniFile;
       WinIniFileName : array[0..MAX_PATH] of char;
       s : string;
     begin
       GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));
       StrCat(WinIniFileName, '\win.ini');
       WinIni := TIniFile.Create(WinIniFileName);
       s := WinIni.ReadString('windows',
                  'run',
                  '');
       if s = '' then
     s := Application.ExeName else
     s := s + ';' + Application.ExeName;
       WinIni.WriteString('windows',
              'run',
              s);
       WinIni.Free;
     end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru