Fórum Alterar Hora do Sistema #353983

function SetDateTimeHost(Year, Month, Day, Hour, Minutes, Secondes: Word): Boolean;
var SystemTime:TSystemTime;
begin
 GetLocalTime(SystemTime);
 SystemTime.wYear := Year;
 SystemTime.wMonth := Month;
 SystemTime.wDay := Day;
 SystemTime.wHour := Hour;
 SystemTime.wMinute := Minutes;
 SystemTime.wSecond := Secondes;
 if not SetLocalTime(SystemTime) then
  Result := False
 else Result := True;
end;(* SetDateTimeHost *)

function AplicaDataHora(Data:TDate;Hora:TTime):Boolean;
var
iDia, iMes, iAno,
iHora, iMinuto, iSegundo, iMSegundo :Word;
begin
 try
  DecodeDate(Data, iAno, iMes, iDia);
  DecodeTime(Hora, iHora, iMinuto, iSegundo, iMSegundo);
  SetDateTimeHost(iAno, iMes,iDia, iHora, iMinuto, iSegundo);
 except
  on msg:Exception do
   MessageDlg(´Não foi possivel atualizar a hora desse terminal, entre em contato com o programador!´,mtError,[mbOK],0);
 end;
end;

//Onde GlbDataHoje é a Data vinda do Servidor e wHoraAtual também...
AplicaDataHora(GlbDataHoje,wHoraAtual);