nonvcl Endlosschleife ohne uses Forms

[sirius]

Das ist deine Schleife:

Delphi-Quellcode:

while getmessage(msg,0,0,) do
begin
  translatemessage(msg);
  dispatchmessage(msg);
end;

Wenn du an dich selber ein Postquitmessge schickst wird diese Schleife beendet.