Run Program on Windows startup

[Blod]

Hello,

I've been using the code below to have a program automatically start up with Windows.
It works fine with XP and as far as I know earlier Window's versions.
However, it won't work with Vista and the message...
Failed to set Data appears.

Code: Select all

procedure RunOnStartup(
  sProgTitle,
  sCmdLine    : string;
  bRunOnce    : boolean );
var
  sKey : string;
  reg  : TRegIniFile;
begin
  if( bRunOnce )then
    sKey := 'Once'
  else
    sKey := '';

  reg := TRegIniFile.Create( '' );
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.WriteString(
    'Software\Microsoft\'
    + 'Windows\CurrentVersion\Run'
    + sKey + #0,
    sProgTitle,
    sCmdLine );
  reg.Free;
end;

with this in the ondestroy event

Code: Select all

if checkbox1.checked then
RunOnStartup('Myprog','C:\folder\Myprog.exe',

Has anyone cured this problem?

Blod

[Kambiz]

Call your function in OnClose or OnCloseQuery event of your form.

[Blod]

My thanks Kambiz
I'll try that.

Blod

[Blod]

Kambiz,

I tried what you said but, unfortunately it isn't working.
And I've tried it on a couple of different computers running Vista.
Any other ideas please?

Blod

[Kambiz]

I guess it's UAC (User Account Control) of Vista that doesn't let you to write on the registry.

To know whether UAC is respomsible or no, go to Control Panel/User Account/Turn User Account Control on or off and deactivate it.

[Blod]

Yes, turning off user account control does solve the problem but of course I can't do that programatically.
So I suppose I'll just have to inform Vista users of my program that they will have to do it manually if they wish

Thanks

Blod

[Kambiz]

Maybe your users need to have administrative privilege too.

[Blod]

Yes that would be the answer.

Blod