Fensterhandle bekommen

[Luckie]

Hallo,
ich habe mir gerade einen nonVCL Ersatz für RaiseLastWin32Error gebastelt:

Code:

[b]procedure[/b] RaiseLastError(hWnd: Cardinal);
[b]var[/b]
  LastError: DWORD;
  szBuffer, szError  : [b]array[/b][0..255] [b]of[/b] Char;
[b]begin[/b]
  LastError := GetLastError;
  wvsprintf(szBuffer, 'Win32-Fehler. Code: %d', PChar(@LastError));
  lstrcat(szBuffer, #13#10);
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, [b]nil[/b], GetLastError, 0, szError,
    sizeof(szError), [b]nil[/b]);
  lstrcat(szBuffer, szError);
  MessageBox(hWnd, szBuffer, 'Fehler', MB_ICONSTOP [b]or[/b] MB_APPLMODAL);
[b]end[/b];

Nur hat es den Schönheitsfehler, dass man das Handle übergeben muß damit die Messagebox richtig funktioniert. Nur leider steht einem das Handle nicht überall zur Verfügung. Es sei denn man deklariert eine globale Variable (unschön) oder übergibt jedes mal das Handle, ist auch nicht so der Hit.

Jetzt dachte ich, ich könnte über die Instanz (hInstance) irgendwie an das Handle kommen. Hm, Nico hat mir gerade gesagt ohne beträchtlichen Aufwand nicht möglich.

Andere Vorschläge ?

[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];

[Luckie]

Scheint zu funktionieren. Bei mir sieht das jetzt so aus:

Code:

[b]procedure[/b] RaiseLastError;

  [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]
  ThreadId: Cardinal;
  hWnd: Cardinal;
  LastError: DWORD;
  szBuffer, szError  : [b]array[/b][0..255] [b]of[/b] Char;
[b]begin[/b]
  ThreadID := GetCurrentThreadId;
  EnumThreadWindows(ThreadID, @EnumThreadWndProc, Integer(@hWnd));
  hWnd := GetLastActivePopup(hWnd);

  LastError := GetLastError;
  wvsprintf(szBuffer, 'Win32-Fehler. Code: %d', PChar(@LastError));
  lstrcat(szBuffer, #13#10);
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, [b]nil[/b], GetLastError, 0, szError,
    sizeof(szError), [b]nil[/b]);
  lstrcat(szBuffer, szError);

  MessageBox(hWnd, szBuffer, 'Fehler', MB_ICONSTOP [b]or[/b] MB_APPLMODAL);
[b]end[/b];