🚀 go-pugleaf

This is from the Borland.com Frequently Asked Questions
http://www.borland.com/devsupport/delphi/qanda/
===================
Question and Answer Database

    FAQ1894D.txt   Running apps on Windows startup
    Category   :Windows API
    Platform    :All
    Product    :All 32 bit

    Question:
    How can I get my application to run every time Windows starts?

    Answer:
    The following demonstrates how to add your application to the
    Windows boot sequence. Code is demonstrated for both the Win32 and
    Win16 platforms.

    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;

===================
Hope this helps!

--  All the best from James Sandbrook.
****************************************************************
http://ssapcs.interspeed.net/index.html
Charlie Calvert talks about Delphi's future
HTML-New Zealand Web Site Links-Family-Delphi-Pascal-
School Projects-Computer Terms-Interviews with Dr Bob
and Marco Cant� - And our Delphi e-group.
****************************************************************
Eric wrote:

> Hello,
>
> Is it possible to automatic start a program when Windows 95/98 start ?
> I know if we put the program in the Registry/RUN, or put it in StartUp
> Folder it will  automatic start when Windows start.
>
> But, if I don't want to put it in Registry/RUN or put it in Startup
> folder, can it also automatic startup when Windows95/98 start ???
>
> Best regards,
> Eric