Problem ShellExecute / CreateProcess + Wait mit Vista UAC

[Dezipaitor]

NtQueryInformationProcess, aber ich bin nicht sicher, ob die ProcessID in Win2000 damit ermittelt werden kann.

[MyFirstPascalWasTP4]

Zitat von himitsu:

Delphi-Quellcode:

function ExecAndWait(Filename, Params: String;
                     WindowState: Word = SW_SHOWNORMAL): boolean;
var
  {$IFDEF UNICODE} ShExecInfoW: SHELLEXECUTEINFOW; {$ENDIF}
  ShExecInfoA: SHELLEXECUTEINFOA;
.
.
.

Eine kleine Verständnisfrage: Dass ich ShExecInfo?.hProcess mit CloseHandle schließen muss, ist ja klar (und wird hier auch gemacht). Aber was ist mit dem Parameter hInstApp? Dort wird entweder ein Fehlercode (Wert <= 32) oder eben ein Handle (Wert > 32) zurückgegeben. Muss ich dieses Handle nicht ebenfalls schließen?

[Apollonius]

Zitat:

Although hInstApp is declared as an HINSTANCE for compatibility with 16-bit Windows applications, it is not a true HINSTANCE. It can be cast only to an int and compared to either 32 or the following SE_ERR_XXX error codes.

Aber auch echte HInstances musst du grundsätzlich nicht schließen, da es keine Kernel-Handles sind, sondern Zeiger.

[MyFirstPascalWasTP4]

Danke für die schnelle Antwort.

[schwa226]

eigenes Thema erstellt...

[hitzi]

Hallo,

muss das Handle auch irgendwann geschlossen werden, wenn ich den Code von himitsu so ändere, dass nicht auf das Ende des Programms gewartet wird:

Delphi-Quellcode:

function ExecAndWait(Filename, Params: String;
                     WindowState: Word = SW_SHOWNORMAL): boolean;
var
  {$IFDEF UNICODE} ShExecInfoW: SHELLEXECUTEINFOW; {$ENDIF}
  ShExecInfoA: SHELLEXECUTEINFOA;
// MSDN: ShellExecuteEx, ShellExecuteInfo
begin
  Result := false;
  if (Filename = '') or not FileExists(FileName) then
    exit;
  {$IFDEF UNICODE}
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    ShExecInfoW.Wnd          := GetForegroundWindow;
    ShExecInfoW.cbSize       := SizeOf(SHELLEXECUTEINFOW);
    ShExecInfoW.fMask        := SEE_MASK_NOCLOSEPROCESS;
    ShExecInfoW.lpVerb       := 'open';
    ShExecInfoW.lpFile       := PWideChar(WideString(Filename));
    ShExecInfoW.lpParameters := PWideChar(WideString(Params));
    ShExecInfoW.lpDirectory  := PWideChar(WideString(ExtractFileDir(Filename)));
    ShExecInfoW.nShow        := WindowState;
    Result := ShellExecuteExW(@ShExecInfoW);
  end
  else
  {$ENDIF}
  begin
    ShExecInfoA.Wnd          := GetForegroundWindow;
    ShExecInfoA.cbSize       := sizeof(SHELLEXECUTEINFOA);
    ShExecInfoA.fMask        := SEE_MASK_NOCLOSEPROCESS;
    ShExecInfoA.lpVerb       := 'open';
    ShExecInfoA.lpFile       := PAnsiChar(AnsiString(Filename));
    ShExecInfoA.lpParameters := PAnsiChar(AnsiString(Params));
    ShExecInfoA.lpDirectory  := PAnsiChar(AnsiString(ExtractFileDir(Filename)));
    ShExecInfoA.nShow        := WindowState;
    Result := ShellExecuteExA(@ShExecInfoA);
  end;
end;

Oder kümmert sich das System selber darum, wenn das Programm dann wirklich mal vom Benutzer geschlossen wird?

Gruss

[Apollonius]

Das Handle muss geschlossen werden. Aber wenn du es nicht brauchst, kannst du auch einfach auf das Flag SEE_MASK_NOCLOSEPROCESS verzichten, dann wird das bereits von ShellExecuteEx selbst gemacht.

[Shyran]

Hi ihr Lieben,

wie kann ich nun mit obiger Funktion eine Datei starten? Eingebunden hab ich sie noch bekommen, wenngleich ich aufgrund des Unicode's da Sorgen hatte (nutze Delphi XE) und mir nicht klar ist, welche uses ich ggf. noch nutzen muss, damit der die Funktionen "WideFileExists" z.B. findet. Ihr bemerkt schon, ich starte gerade erst mit dem ganzen Kram.

Jedenfalls führte z.B. folgende Zeile natürlich zu keinem Erfolg, ich begreife einfach den Funktionsaufruf nicht, den ich durchführen muss. Welche Parameter sind zu übergeben, damit das klappt? Ist der Deklaration werde ich leider nicht hinreichend schlau und bitte um Hilfe dazu.

Umgebaut hatte ich das nun zu:

Delphi-Quellcode:

function ExecAndWait(Filename, Params: Widestring;
                     WindowState: word = SW_SHOWNORMAL): boolean;
var
  ShExecInfoA: SHELLEXECUTEINFOA;
  r : Cardinal;
//http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shellexecuteex.asp
//http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/shellexecuteinfo.asp
begin
  Result := false;
  if Filename = '' then exit;
  if not FileExists(FileName) then
  begin
    // Log (true,P_ERROR,WideFormat(_('Kann die angegebene Datei nicht finden: %s'),[FileName]));
    exit;
  end;

    ShExecInfoA.Wnd := GetForegroundWindow;
    ShExecInfoA.cbSize := sizeof(SHELLEXECUTEINFOA);
    ShExecInfoA.fMask := SEE_MASK_NOCLOSEPROCESS;
    ShExecInfoA.lpVerb := 'open';
    ShExecInfoA.lpFile := PAnsiChar(AnsiString(Filename));
    ShExecInfoA.lpParameters := PAnsiChar(AnsiString(Params));
    ShExecInfoA.lpDirectory := PAnsiChar(AnsiString(ExtractFileDir(Filename)));
    ShExecInfoA.nShow := WindowState;
    Result := ShellExecuteExA(@ShExecInfoA);
  try
    if Result then
    begin
        r := WaitForSingleObject(ShExecInfoA.hProcess, INFINITE);
    end;
  finally
      CloseHandle(ShExecInfoA.hProcess);
  end;
end;

und versuche nun via

ExecandWait('Ping.EXE','>> 192.168.212.253 >> testping.txt');
Es auch zu nutzen. Ich weiß, der Aufruf ist falsch, aber ich brauche hier Starthilfe, bitte.

Noch toller wäre es ja, 'n Ping direk tzu nutzen, aber nach 4-6 Stunden probieren aller möglichen Sachen, die durch die bank alle nicht klappten, wollte ich es eben über das doofe ping.exe lösen.

LG Shyran

[DeddyH]

Du vermischst Ansi (SHELLEXECUTEINFOA) mit Unicode. Hast Du es einmal mit der Version aus #12 versucht? Der Aufruf an sich scheint ja soweit in Ordnung zu sein.

P.S.: Willkommen in der DP

[edit] Nachtrag: FileExists müsste in SysUtils stehen [/edit]

[Shyran]

Hi,

danke für das Willkommen! *freu*

Und: Ja, habe ich probiert. Daher kam mein Einwand, dass er die "Wide"-Ausdrücke usw. beim Kompilieren nicht finden konnte und daher auch mein Umbau dazu. Nochmal deutlich: Die Funktion "WideFileExists" kannte er nicht. In den uses stehen die SysUtils drin, gerade eben nachgeschaut.

Noch eine Idee?

Grüßlis