Kein sichtbares Fenster. wie???

[Gast]

Delphi-Quellcode:

program bla;
uses Windows, Messages;

var
  msg:TMsg;

begin
  while GetMessage(msg, 0, 0, 0) do
    case msg.message of
     WM_ENDSESSION,
      WM_CLOSE,
      WM_QUIT:
       Break;
// Weitere Nachrichten hier auswerten
    end;
end.