tu as l'API Sleep
Code :
- VOID Sleep(
- DWORD dwMilliseconds // sleep time in milliseconds
- );
|
mais ca va te freezer ton prog.
tu peux faire qqchose de moins genant avec cette procedure:
Code :
- procedure Delay(ADelay : LongWord);
- var
- lwStart: Longword;
- begin
- lwStart := GetTickCount;
- while (GetTickCount < (lwStart + ADelay)) do
- begin
- Sleep(1);
- Application.ProcessMessages;
- end;
- end;
|
(pas sur que ca marche, je viens de le faire de tete)
---------------
www.alliancefrancophone.org ... Home is where the heart is