![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#4
|
|||
|
|||
![]() bueno ahi te va una funcion del delay
la utilizo desde el delphi One imaginate Código:
Procedure Delay(mSecs : Integer); Var PrimerTC : LongInt; Begin PrimerTC := GetTickCount; Repeat Application.ProcessMessages; Until ((GetTickCount-PrimerTC) >= Longint(mSecs)); End; saludos desde Puebla, Mexico asanxt@hotmail.com |
|
|
![]() |
|