Power-Programmierung/CD1.mdf/magazine/pctchnqs/1992/number1/gdyield.src

Text File | 1992-02-12 | 168b | 10 lines

procedure GoodYield;
var
  Msg:TMsg;
begin
  while PeekMessage(Msg,0,0,0,PM_REMOVE) do begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;