home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1992
/
number1
/
gdyield.src
< prev
next >
Wrap
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;