CreateProcess: Prozess mit Administratorrechten?

[PeterPanino]

Einen schönen guten Tag!

Ich verwende folgenden Code, um ein Programm mit einer gegebenen CommandLine zu starten:

Code:

  var
    si: TStartupInfo;
    pi: TProcessInformation;

  ZeroMemory(@si, sizeof(si));
  si.cb := sizeof(si);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := WindowMode;

  if Winapi.Windows.CreateProcess(nil, PChar(cmdLine), nil, nil, False, 0, nil, nil, si, pi) then
  begin
    Winapi.Windows.CloseHandle(pi.hThread);
    Winapi.Windows.CloseHandle(pi.hProcess);
    Exit;
  end;

Welche Parameter muss ich nun wie verändern, um das Programm mit Administrator-Rechten auszuführen?

[Luckie]

Forensuche?

https://www.delphipraxis.net/34019-c...essasuser.html

[PeterPanino]

Zitat:

Zitat von Luckie (Beitrag 1401238)

Forensuche?

https://www.delphipraxis.net/34019-c...essasuser.html

Hab ich bereits probiert, dieses Beispiel funktioniert nicht, wenn ich sinfo so definiere wie in dem Beispiel.

[PeterPanino]

Ich habe das Problem jetzt so (auf brutale Weise) gelöst:

Code:

var
  ThisProgramToRun, ThisParamToRun: string;
  p: Integer;

if chkAdminMode.Checked then
begin
  cmdline := Trim(cmdline);

  if ContainsText(cmdline, ' ') then // wenn cmdline ein Leerzeichen enthält
  begin
    p := Pos(' ', cmdline);
    ThisProgramToRun := JclStrings.StrLeft(cmdline, p - 1);
    ThisParamToRun := Trim(JclStrings.StrRestOf(cmdline, p + 1));
  end
  else // wenn cmdline kein Leerzeichen enthält
  begin
    ThisProgramToRun := cmdline;
    ThisParamToRun := '';
  end;

  JclShell.ShellExecEx(ThisProgramToRun, ThisParamToRun, 'runas');
  EXIT;
end

Funktioniert wunderbar!