Problem mit ShellExecute und Windows 8

[Codewalker]

Hallo zusammen.

Ich nutze bisher folgenden Code, um einen Prozess mit Parametern zu starten und auf die Beendigung zu warten (ich nutze vorgabebeding einige Returncodes):

Delphi-Quellcode:

function ExecuteAndWait(Filename, Params: Widestring;
                     WindowState: Word = SW_SHOWNORMAL): Integer;
var
  ShExecInfoW: SHELLEXECUTEINFOW;
  r : Cardinal;
  ExitCode: Cardinal;
  res: Boolean;
begin
  Result := -50;
  if Filename = '' then Exit;
  if not FileExists(FileName) then
  begin
    Exit(-100);
  end;

  ShExecInfoW.Wnd := GetForegroundWindow;
  ShExecInfoW.cbSize := sizeof(SHELLEXECUTEINFOW);
  ShExecInfoW.fMask := SEE_MASK_NOCLOSEPROCESS;
  ShExecInfoW.lpVerb := 'open';
  ShExecInfoW.lpFile := PWideChar(Filename);
  ShExecInfoW.lpParameters := PWideChar(Params);
  ShExecInfoW.lpDirectory := PWideChar(ExtractFileDir(Filename));
  ShExecInfoW.nShow := WindowState;
  res := ShellExecuteExW(@ShExecInfoW);

  try
    if res then
    begin
      r := WaitForSingleObject(ShExecInfoW.hProcess, INFINITE);
      if not GetExitCodeProcess(ShExecInfoW.hProcess, ExitCode)
        then Result := -1;
    end;
  finally
    CloseHandle(ShExecInfoW.hProcess);
    Result := ExitCode;
  end;
end;

Das klappte bisher sehr gut, aber unter Windows 8 friert mein Programm ein und der andere Prozess wird nicht gestartet. Wenn ich dann mein Programm über den Debugger kille, dann wird endlich (aber zu spät natürlich) der andere Prozess gestartet. Was habe ich nicht bedacht?

[dunningkruger]

Bei mir funktionieren manche Programme erst dann korrekt, wenn ich sie nicht aus der IDE oder völlig ohne laufende IDE starte. Probiers mal aus!

[DeddyH]

BTW: Wäre

Delphi-Quellcode:

if res then 
  try

nicht sinnvoller?

[Codewalker]

Zitat:

Zitat von DeddyH (Beitrag 1199651)

BTW: Wäre

Delphi-Quellcode:

if res then 
  try

nicht sinnvoller?

Ja, ich denke du hast Recht

Edit: Ändert aber am Verhalten erstmal nix.

[DeddyH]

Wo genau bleibt das Programm denn stehen? Der Prozess scheint ja noch gestartet zu werden.

[Codewalker]

Er bleibt beim

Delphi-Quellcode:

WaitForSingleObject

hängen, aber nicht immer. Ich werde mich da mal in Ruhe durchsteppen ...

Edit: Scheint wohl mit Berechtigung / UAC zusammenzuhängen. Weiß jemand, wie ich mit ShellExecute & UAC das sauber umsetzen kann, ein anderes Programm als Admin zu starten und auf dessen Beendigung zu warten?

[DeddyH]

Hilft Dir CreateProcessWithLogonW weiter?

[dunningkruger]

Zitat:

Zitat von dunningkruger (Beitrag 1199650)

Bei mir funktionieren manche Programme erst dann korrekt, wenn ich sie nicht aus der IDE oder völlig ohne laufende IDE starte. Probiers mal aus!

Hast Du aber gelesen, oder :twisted: ?

[Codewalker]

Zitat:

Zitat von dunningkruger (Beitrag 1199672)

Zitat:

Zitat von dunningkruger (Beitrag 1199650)

Bei mir funktionieren manche Programme erst dann korrekt, wenn ich sie nicht aus der IDE oder völlig ohne laufende IDE starte. Probiers mal aus!

Hast Du aber gelesen, oder :twisted: ?

Ja, ist mir beim Edit durchgegangen. Hat nichts geändert (wäre auch noch ärgerlicher gewesen)

[Dalai]

Zitat:

Zitat von Codewalker (Beitrag 1199661)

Weiß jemand, wie ich mit ShellExecute & UAC das sauber umsetzen kann, ein anderes Programm als Admin zu starten und auf dessen Beendigung zu warten?

Benutze als Verb entweder 'runas' oder 'runasuser'. Ersteres sorgt auf Windows bis einschl. XP für den Dialog 'Ausführen als anderer Nutzer', ab Vista aber für einen UAC-Dialog, letzteres sorgt bei Windows ab Vista für 'Ausführen als anderer Nutzer' (weiß nicht mehr, wie XP darauf reagiert).

Ergänzung:
Hab ich ja völlig vergessen, dass ich selber Probleme hatte, auf das Ende eines solchen 'elevated' Prozesses zu warten, wie ich in diesem Thema ausführte... Es kann also sein, dass ShellExecuteEx auch bei aktiver UAC nicht wartet.

MfG Dalai