PC Pro 1996 May/CD2_DEMO.ISO/code/q&a/listing1.txt

Text File | 1996-02-28 | 361 b | 17 lines

function ProcessMessage: Boolean;
var
    Msg: TMsg;
begin
    Result := False;
    if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
    begin
        Result := True;
        if Msg.Message <> WM_QUIT then
        begin
            TranslateMessage(Msg);
            DispatchMessage(Msg);
        end
        else PostQuitMessage (0);
    end;
end;