Run PowerShell Command as Administrator in Delphi

To capture the output of the PowerShell command and store it in a string variable, you can modify the RunPowerShellCommandAsAdmin procedure to redirect the output of the PowerShell process and read it into a string. 

uses
  Classes, Process, ShellAPI, SysUtils;

function RunPowerShellCommandAsAdmin(const ACommand: string): string;
var
  ShellExecuteInfo: TShellExecuteInfo;
  Output: TStringStream;
  ProcessHandle: THandle;
  BytesRead: DWORD;
  Buffer: array[0..1023] of AnsiChar;
begin
  Output := TStringStream.Create('');
  try
    FillChar(ShellExecuteInfo, SizeOf(ShellExecuteInfo), 0);
    ShellExecuteInfo.cbSize := SizeOf(ShellExecuteInfo);
    ShellExecuteInfo.lpVerb := 'runas'; // Requesting elevation
    ShellExecuteInfo.lpFile := 'powershell.exe';
    ShellExecuteInfo.lpParameters := PChar('-NoProfile -ExecutionPolicy Bypass -Command "' + ACommand + '"');
    ShellExecuteInfo.nShow := SW_HIDE; // Hide the PowerShell window
    ShellExecuteInfo.fMask := SEE_MASK_NOCLOSEPROCESS;

    if not ShellExecuteEx(@ShellExecuteInfo) then
      raise Exception.Create('Failed to execute PowerShell command as admin');

    ProcessHandle := ShellExecuteInfo.hProcess;
    repeat
      if not ReadFile(ShellExecuteInfo.hProcess, Buffer, Length(Buffer), BytesRead, nil) then
        Break;
      Output.Write(Buffer, BytesRead);
    until BytesRead = 0;

    // Wait for the process to exit
    WaitForSingleObject(ProcessHandle, INFINITE);

    Result := Output.DataString;
  finally
    Output.Free;
    CloseHandle(ProcessHandle);
  end;
end;

// Usage
procedure TForm1.RunButtonClick(Sender: TObject);
var
  Output: string;
begin
  Output := RunPowerShellCommandAsAdmin('Your-PowerShell-Command-Here');
  Memo1.Text := Output;
end;

In this modified code:

• We create a TStringStream object named Output to store the output of the PowerShell command.
• After executing the PowerShell command with elevated privileges, we read the output of the process using the ReadFile function.
• The output is continuously read into the Output string stream until the end of the output is reached.
• We wait for the PowerShell process to exit using the WaitForSingleObject function to ensure that we capture the complete output.
• Finally, we return the content of the Output string stream as a string, which contains the output of the PowerShell command.

Now, when you call RunPowerShellCommandAsAdmin, it will execute the PowerShell command with elevated privileges and return the output as a string. You can then assign this output to your TMemo component or use it as needed in your Delphi application.