Handle von Firefox bei ShellExecuteEx

[Fridolin Walther]

Zitat von jaenicke:

... denn das liefert dir ja direkt den Hauptthread mit zurück.

Nur um das klar zu stellen: So etwas wie ein "Hauptthread" existiert nicht. Windows kennt zw. Threads keinerlei Unterschiede. Eine Anwendung bleibt ebenso solange aktiv bis alle Threads beendet sind oder explizit ExitProcess aufgerufen wird.

Ansonsten hat jaenicke recht. Du bekommst dort ein Prozesshandle und kein Fensterhandle. Um an das Fensterhandle zu gelangen musst Du FindWindow oder alternativ die Enum*Windows Funtkionen bemühen. Siehe dazu z.B. kurze Demo Anwendung:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  windows, sysutils;

var
  HandleArray : array of THandle;

function EnumWindowsCallback(Handle : THandle; ProcessId : DWORD) : LongBool; stdcall;
var
  ProcessIdOfHandle : DWORD;
begin
  GetWindowThreadProcessID(Handle, ProcessIdOfHandle);
  if (ProcessIdOfHandle = ProcessId) and (IsWindowVisible(Handle)) then
    begin
      SetLength(HandleArray, Length(HandleArray) + 1);
      HandleArray[Length(HandleArray) - 1] := Handle;
    end;
  Result := true;
end;

function GetVisibleWindowsOfProcess(ProcessId : DWORD) : Boolean;
begin
  SetLength(HandleArray, 0);
  Result := EnumWindows(@EnumWindowsCallback, ProcessId) and (Length(HandleArray) > 0);
end;

var
  i : Integer;
begin
  if GetVisibleWindowsOfProcess(2112) then
    for i := 0 to Length(HandleArray) - 1 do
      begin
        writeln(HandleArray[i]);
      end;
  readln;
end.