Request elevation in a program without using PowerShell

[SpriggsySpriggs]

The below code uses the standard setup of asking command prompt if the scope of the current session is user or admin. Then, if not admin, prints a statement saying "please run as administrator". Press enter and then the program uses ShellExecute from Shell32 to apply the "runas" verb to COMMAND$(0) (which is the executable's full path). Then you just press yes on the UAC prompt and voila; an elevated program without using PowerShell. I used to use PowerShell to achieve this but of course that is much slower. ShellExecute isn't only limited to this but I figured I'd at least share this bit with y'all before I do more usage and put it in my API collection.

Code: QB64: [Select]

1. Option _Explicit
2.  
3. Declare Dynamic Library "Shell32"
4.     Function ShellExecute%& Alias ShellExecuteA (ByVal hwnd As Long, lpOperation As String, lpFile As String, lpParameters As String, lpDirectory As String, Byval nShowCmd As Integer)
5. End Declare
6.  
7. Dim As String cmd
8. Dim As Long errorlevel
9.  
10. cmd = ">nul 2>&1 " + Chr$(34) + "%SYSTEMROOT%\system32\cacls.exe" + Chr$(34) + " " + Chr$(34) + "%SYSTEMROOT%\system32\config\system" + Chr$(34)
11. errorlevel = _ShellHide(cmd)
12. Print errorlevel
13. If errorlevel <> 0 Then
14.     Print "not elevated."
15.     Print "please run as administrator."
16.     Sleep
17.     Print ShellExecute(0, "runas" + Chr$(0), Command$(0) + Chr$(0), "", "", 5)
18.     System
19. Else
20.     Print "elevated."
21. End If