Run program in Windows 7 UAC (User Account Control)
lazarus / 34-Windows

----------------------------------------------------------------------
tuxmartin · 2011-10-16 09:16

I need to execute external application from program in Windows7. If I
disable UAC (User Account Control) it works.
When UAC is enabled, it doesn't work. :-(
How can I "run as admin" ?

Code: [Select]procedure TForm1.Button1Click(Sender: TObject);
var
  app: TProcess;
begin
   app := TProcess.Create(nil);
   app.CommandLine := 'certutil -addstore -f Root "cert.crt"';
   app.Execute;
   app.Free;
end;

----------------------------------------------------------------------
lainz · 2011-10-16 13:45

If you run your program with UAC enabled, but you run as administrator
(right click > run as administrator) works?

If works the only thing you need to do is change the manifest:

<requestedExecutionLevel level="asInvoker" uiAccess="false"/>

requestedExecutionLevel in Vista can be:

* asInvoker
* highestAvailable
* requireAdministrator

In order to change the manifest you must uncheck in project options
the 'Enable Themes' and 'DPI aware application'. And load the manifest
from a resource file. Read here:

http://lazarus.freepascal.org/index.php/topic,11659.msg69861.html

----------------------------------------------------------------------
seier · 2012-08-28 19:58

In Lazarus 1.0 do the following:
Click "Project" --> "Project Options"In the "Execution Level" drop
down list box select "require administrator"Click [Ok]