Registriert seit: 4. Sep 2004
1.465 Beiträge
Delphi 10.4 Sydney
|
AW: CreateProcess: Prozess mit Administratorrechten?
3. Mai 2018, 23: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!
|
|
Zitat
|