Cambiar la fecha y hora del PC

2434 vistas

Para cambiar la fecha y/o la hora del PC nos vamos a basar en la API de Windows SetLocalTime



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2.  
  3.   procedure FechaDelSistema(Fecha: TDateTime);
  4.   var
  5.     FecSys: TSystemTime;
  6.     nA, nM, nD: Word;
  7.   begin
  8.     DecodeDate(Fecha, nA,nM,nD);
  9.     GetLocalTime(FecSys);
  10.     FecSys.wYear  := nA;
  11.     FecSys.wMonth := nM;
  12.     FecSys.wDay  := nD;
  13.     SetLocalTime(FecSys);
  14.   end;
  15. begin
  16.   FechaDelSistema( StrToDate('23/08/2002') );
  17. end;