Run command with Administrator permission in Delphi on Microsoft Windows

In Delphi, you can execute commands with administrator privileges by using the ShellExecute function with the 'runas' verb. However, if you want to execute a specific command with administrator privileges, you can use the CreateProcess function from the Windows API. Here's an example:

uses
  ShellAPI, Windows, SysUtils;

function ExecuteCommandAsAdmin(const Command: string; var Output: string): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  SecurityAttr: TSecurityAttributes;
  StdOutPipeRead, StdOutPipeWrite: THandle;
  StdOutReadTmp, StdOutRead: THandle;
  WasOK: Boolean;
  Buffer: array[0..255] of AnsiChar;
  BytesRead: Cardinal;
begin
  Result := False;
  SecurityAttr.nLength := SizeOf(SecurityAttr);
  SecurityAttr.bInheritHandle := True;
  SecurityAttr.lpSecurityDescriptor := nil;

  if CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SecurityAttr, 0) then
  begin
    try
      FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
      StartupInfo.cb := SizeOf(TStartupInfo);
      StartupInfo.hStdOutput := StdOutPipeWrite;
      StartupInfo.hStdError := StdOutPipeWrite;
      StartupInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
      StartupInfo.wShowWindow := SW_HIDE;

      WasOK := CreateProcess(nil,  PChar('cmd.exe /C ' + Command), nil, nil, True, CREATE_NO_WINDOW or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo);

      CloseHandle(StdOutPipeWrite);

      if WasOK then
      begin
        try
          Output := '';
          repeat
            WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
            if BytesRead > 0 then
            begin
              Buffer[BytesRead] := #0;
              Output := Output + string(Buffer);
            end;
          until not WasOK or (BytesRead = 0);
          Result := True;
        finally
          CloseHandle(ProcessInfo.hProcess);
          CloseHandle(ProcessInfo.hThread);
        end;
      end;
    finally
      CloseHandle(StdOutPipeRead);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Output: string;
begin
  if ExecuteCommandAsAdmin('ipconfig /all', Output) then
    ShowMessage(Output)
  else
    ShowMessage('Error executing command');
end;

Replace 'YourCommand.exe /parameter1 /parameter2' with the actual command you want to run and any necessary parameters.

Please note that running commands with administrative privileges should be done carefully, and you should be aware of the potential security risks. Ensure that the command being executed is trustworthy and doesn't introduce security vulnerabilities.