"Preben Mikael Bohn" <nospam@nospam.com> wrote in message
news:3ff2e7f9$0$95062$edfadb0f@dread11.news.tele.dk...
> Hej NG, fumler lidt med noget krydsplatforms Pascal udvikling med
> FreePascal,
http://www.freepascal.org
>
> Er der nogen der ved om der findes en sleep() rutine eller lignende der
> virker både under linux og win32?
>
> Med venlig hilsen Preben
>
Har du prøvet med systemvariablen 'GetTickCount'?
GetTickCount = SystemTid i Milisekunder.
Så.. sleep i 1 sekund;
[...]
OldTickCount:=GetTickCount;
While abs(GetTickCount-OldTickCount)<1000 do Application.ProcessMessages;
[...]
?