Delphi - Fecha y Hora Windows

 
Vista:

Fecha y Hora Windows

Publicado por Alejandro (10 intervenciones) el 20/08/2003 06:23:23
Hola amigos foristas, necesito cambiar la fecha y la hora
de windows desde un programa en delphi, me podrian
decir como lo puedo hacer o que procedimientos
debo consultar....gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Fecha y Hora Windows

Publicado por Diego Romero (636 intervenciones) el 21/08/2003 01:36:15
Agrega DateUtils a la clausula Uses de tu form y luego:

procedure TForm1.Button1Click(Sender: TObject);
var
SystemTime : TSystemTime;
NewTime: TDateTime;
begin
NewTime:=EncodeDateTime(2003,8,20,19,59,00,00);
DateTimeToSystemTime(NewTime, SystemTime);
SetLocalTime(SystemTime);
end;

Luego debes informar al sistema que la fecha y la hora han cambiado, sino el reloj en la barra de sistema no se actualizará y los programas que se estén ejecutando no se enterarán del cambio, para ello envia el siguiente mensaje a todos los programas que se estén ejecutando en ese momento:
SendMessage(Handle, WM_TIMECHANGE, 0, 0);
donde Handle es el handle de la ventana principal de la aplicación al cual le envías el mensaje.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Gracias!

Publicado por Alejandro (10 intervenciones) el 21/08/2003 04:56:21
Funciona de maravillas, muchas gracias Diego.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar