Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal uma procedure para gerar um intervalo, mas sem travar o sistema!
procedure Delay(dwMilliseconds: Longint);var iStart, iStop: DWORD;begin iStart := GetTickCount; repeat iStop := GetTickCount; Application.ProcessMessages; Sleep(1); until (iStop - iStart) >= dwMilliseconds;end;
falow
http://forum.imasters.com.br/public/style_emoticons/default/joia.gif
Carregando comentários...
