How to run a program with administrator privileges on Windows 7/Vista in Delphi

The procedure is as follows:

1. Create a res File

Create a text file named by yourself. Here is UAC. manifest. content:

<? XML version = "1.0" encoding = "UTF-8" standalone = "yes"?>
<Assembly xmlns = "urn: Schemas-Microsoft-com: ASM. V1" manifestversion = "1.0">
<Trustinfo xmlns = "urn: Schemas-Microsoft-com: ASM. V3">
<Security>
<Requestedprivileges>
<Requestedexecutionlevel level = "requireadministrator"/>
</Requestedprivileges>
</Security>
</Trustinfo>
</Assembly>

Create a text file named UAC. Rc. content:

1 24 UAC. manifest
Compile it into the UAC. Res file and run:

Brcc32 UAC. RC-fouac. Res
2. InCodeIntroduced in
Open the project file and add

{$ R uac. Res}
3. CompileProgram

In this case, the program supports win7/Vista. When running, a Windows Prompt box is displayed asking whether the user is allowed to run as an administrator.