Alex
--
** Pepsi Cola and Animal protection **
**  http://www.pepsi{*word*76}bath.com/  **

Alex
--
** Pepsi Cola and Animal protection **
**  http://www.pepsi{*word*76}bath.com/  **

Look in the FAQ page of the TP - links, especially for Dr. John
Stockton's timing page. Another address is in the serial chapter,
AuxUnit example has a procedure for the delay. It was from one
of the EXAMPLES which were part of the BP 7 package. I think that
this should be part of TPW 1.x too.

http://bsn.ch/tp-links

No sleep is a normal WIN32 (WIN16?) procedure (oops sorry void function
:))). You can find it in your Windows SDK help.

Alex
--
** Pepsi Cola and Animal protection **
**  http://www.pepsi{*word*76}bath.com/  **

    To implement a 'delay' under win16, use the settimer/WM_TIMER
paradigm. Windows will send the WM_TIMER message to your app after the
time period set by the settimer procedure has 'timed out'. In the
meanwhile, windows will have been able to give processor time to other
apps/windows.

Here is the code I use in most of my work:

Var dtM:tMsg;   {declared outside, reason forgotten}
Var dtL:Longint;
Procedure Delay(Time:Longint);
Begin
  dtL:=GetTickCount+Time;
  Repeat
        While PeekMessage(dtM,0,0,0,pm_Remove) Do
        Begin
             TranslateMessage(dtM);
             DispatchMessage(dtM);
        End;
  Until GetTickCount>=dtL;
End;

Ideas:
1. Leave out the TranslateMessage(dtM)) if you are using this only for
VERY short delays.
2. Change the Time:Longint to Time:word if you need to. {Can't think of
reason why}
3. Change PeekMessage to GetMessage if you know your app WILL be getting
messages constantly.

Can anyone add any improvements? I would be thankful. (-?l)

--
http://www.geocities.com/aibrain/   -Email: aibr...@usa.net

In the german version of Borland Pascal 7
the demo for the delay procedure contains
this code for Windoze:

Procedure Delay(ms : LongInt);
Var
  TickCount : LongInt;
  M         : TMsg;
Begin
  TickCount := GetTickCount;
  While GetTickCount - TickCount < ms do
    If PeekMessage(M,0,0,0,pm_Remove) then
      Begin
        TranslateMessage(M); DispatchMessage(M);
      End;
End;