[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    I'm trying to add a delay of a few seconds into a formless DLL written in
    Delphi

    Using the VCL TTimer seems to be precluded because it is a component,
    and its create method is looking for that all familiar Sender:TComponent, =20=

    The following function should work in both 16 and 32 bit environment

    Procedure GoSleep(SleepFor: DWord);
    var
    StartTicks: LongInt;
    Begin
      {$IfDef Win16}
        StartTicks := GetTickCount + SleepFor;
        While GetTickCount < StartTicks Do
          Begin
            //Optional
            Application=ProcessMessages;
          End;
      {$Else}
        Sleep(SleepFor);
      {$EndIf}
    End;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]