Die folgende, zugegeben sehr simple Prozedur ermöglicht es Messageboxen an jeder Stelle einer (Server-)Anwendung anzuzeigen, auch wenn diese normalerweise nicht mit einem Nutzer kommunizieren kann (z.B. NT Dienste,
COM Server, etc.)
Achtung: Wenn man mit dem
Terminal Client an einem
Terminal Server verbunden ist, bekommt man diese Messagebox
nicht zu sehen und das Programm wartet, bis sich jemand an den wirklichen Desktop setzt.
Delphi-Quellcode:
procedure DebugMsgBox(aStr: AnsiString);
begin
MessageBox(0, PChar(aStr), 'Debug Message',
MB_OK + MB_TOPMOST + MB_SERVICE_NOTIFICATION);
end;
...
...