Einzelnen Beitrag anzeigen

PeterPanino

Registriert seit: 4. Sep 2004
1.451 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: CreateProcess: Prozess mit Administratorrechten?

  Alt 3. Mai 2018, 22:09
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!
  Mit Zitat antworten Zitat