home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV3N1.ZIP / GDYIELD.SRC < prev    next >
Encoding:
Text File  |  1992-02-12  |  168 b   |  10 lines
  1. procedure GoodYield;
  2. var
  3.   Msg:TMsg;
  4. begin
  5.   while PeekMessage(Msg,0,0,0,PM_REMOVE) do begin
  6.     TranslateMessage(Msg);
  7.     DispatchMessage(Msg);
  8.   end;
  9. end;
  10.