MessageBox aus non-interactive Anwendungen

[sakura]

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;

...:cat:...