Cambiar fecha y hora del sistema desde la aplicación
 

Cambiar fecha y hora del sistema desde la aplicación

Se puede utilizar la estructura TsystemTime. Se dan valores a ésta y se pasa a la función SetSystemTime.

Se ha de completar tanto la fecha como la hora para evitar que tome valores absurdos y que la función devuelva falso.

También hay que tener en cuenta las diferencias horarias (una o dos horas), pues las considera en las modificaciones.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  fecha:TSystemTime;
begin
  fecha.wyear:=1998;
  fecha.wMonth:=12;
  fecha.wDayofWeek:=5;
  fecha.wDay:=31;
  fecha.wHour:=15;
  Fecha.wMinute:=30;
  Fecha.wSecond:=0;
  Fecha.wMilliseconds:=0;
  if not SetSystemTime(Fecha) then
    showmessage('Error de cambio de fecha-hora');
end;