Fensterhandle bekommen

[jbg]

Ich weiß jetzt nicht ob folgendes funktioniert, von der Logik her müsste es:

Code:

[b]function[/b] EnumThreadWndProc(wnd: HWND; ResultWnd: PInteger): Boolean; [b]stdcall[/b];
[b]begin[/b]
  Result := False;
  ResultWnd^ := wnd;
[b]end[/b];


[b]var[/b]
  wnd: HWND;
[b]begin[/b]
  wnd := 0;
  EnumThreadWindows(GetCurrentThreadId, @EnumThreadWndProc, Integer(@wnd));
  MessageBox(GetLastActivePopup(wnd), 'Message', 'Caption', MB_OK);
[b]end[/b];