load my app at windows startup 2

[Gigatech]

Hi, I use Delphi 7.

What is the best way (by code inside my program) to let the user choose to run the program at windows startup?

Thanks

 

[sggaunt]

You can get your program to write its application name to the run key in the registry.

HKEY_LOCAL_MACHINE/software/microsoft/windows/currentversion/run

e.g.

// write the application to the Windows run key
procedure AddToStartup(Name, AppPath: string);
var path: string;
begin
   FInifile := TRegIniFile.Create('Software');
   with FIniFile do
     begin
      path := 'Software\Microsoft\Windows\CurrentVersion\Run';
        RootKey := HKEY_LOCAL_MACHINE;
        if ReadString(Path, Name, '') <> AppPath then
            WriteString(Path, Name, AppPath);
        Free;
     end;
end;

The user will have to have administror previlages under XP and NT/2000

Steve
Time for a new sig a bit of DNA I think will scan books and get back to you.

 

[sijgs]

I got a slightly different version from somewhere.... maybe a combination of the two???

//=================================================
//Run/Runonce program at system startup
//=================================================
Procedure OnStartup (const PgmTitle, CmdLine: String; RunOnce: boolean);
Var
  Key : String;
  Reg : TRegIniFile;
Begin 
  If RunOnce Then 
    Key := 'Once' #0
  Else 
    Key := #0; 
  Reg := TRegIniFile.create (''); 
  Reg.RootKey := HKEY_LOCAL_MACHINE; 
  Reg.WriteString ('Software\Microsoft\Windows\CurrentVersion\Run' + Key, 
    PgmTitle, CmdLine); 
  Reg.Free
End;

Regards and HTH,
JGS

 

[sggaunt]

[sijgs]
I hope its different , I wrote the code I posted myself, its part of my own product registration engine. Based on the Delphi help examples.



Steve
Time for a new sig a bit of DNA I think will scan books and get back to you.