Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
var fecha:TSystemTime; begin fecha.wyear:=2000; fecha.wMonth:=12; fecha.wDayofWeek:=1; 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;