Actualizar hora sin timer !!!!

[david_uh]

Ok gracias por sus aportes ya encontre la forma de actualizar la hora pero esto sin usar el control TTimer de delphi:
primero creamos este procedimiento



Código Delphi [-]
procedure TimerProc(hwnd : hwnd; uMsg: UINT; idEvent: UINT; dwTimer: DWORD); stdcall
begin
case idEvent of
2000:
begin
showmessage('id 2000 bitch');
end;
2001:
begin
showmessage('id 2001 hoe');
end;
end;




los numero 200 y 2001 son los manejadores de cada evento timer que
queramos en este caso del ejemplo solo manejo dos eventos (200 y 2001)
Con este còdigo establezco un timer cuyo manejador es 2001 por 3000 ms

Código Delphi [-]SetTimer(handle,2001,3000,@Timerproc)


y para detener el timer lo hago así

Código Delphi [-]KillTimer(handle,2001)



el ejemplo lo encontre en esta pagina
Espero les sirva gracias por sus respuesas