die Kurzfassung wäre in etwa
Delphi-Quellcode:
var Msg: TMsg;
while not doExit and PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
wenn du jetzt aber noch zusätzlich
Unicode richtig behandelt haben willst, dann bräuchte es mehr Aufwand