Kann mir wer auf die Sprünge helfen,

ich starte eine Exe mit CreateProcess(...
Auf ProcessInfo erhalte u.a. ich ProcessID und Threadhandle.
Wie komme ich jetzt an das Fensterhandle des gestarteten Programms?
Ziel ist es dieses Programm wieder in den Vordergrund zu bekommen.

Für einen Tip dankbar.
Gruß
Peter

zusammenfalten · markieren

Delphi-Quellcode:

type
  PEnumInfo = ^TEnumInfo;
  TEnumInfo = record ProcessID: DWORD; HWND: THandle; end;

function EnumWindowsProc(Wnd: DWORD; var EI: TEnumInfo): Bool; stdcall;
    var
      PID: DWORD;
    begin
      GetWindowThreadProcessID(Wnd, @PID);
      Result := (PID <> EI.ProcessID) or (not IsWindowVisible(WND)) or (not IsWindowEnabled(WND));
      if not Result then EI.HWND := WND;
    end;

  function FindMainWindow(PID: DWORD): DWORD;
    var
      EI: TEnumInfo;
    begin
      EI.ProcessID := PID;
      EI.HWND := 0;
      EnumWindows(@EnumWindowsProc, Integer(@EI));
      Result := EI.HWND;
    end;

Danke
Hat funktioniert.

Gruß
Peter