Fórum Capturar as Horas do Servidor #209328

WinExec(PChar(´Net Time \\´+Edit1.Text),SW_HIDE);

procedure TFrmPrincipal.DataHoraServidor;
var
   SystemTime : TSystemTime;
begin
   with dmA.qryDataHora do
      begin
      Close;
      SQL.Text:=´SELECT CURRENT_DATE, CURRENT_TIME FROM RDB$DATABASE´;
      Open;
      end;
   With SystemTime do
      begin
      //Definindo a data do sistema
      wYear:= StrToInt(copy(dmA.qryDataHora.Fields[0].AsString,7,4));
      wMonth:= StrToInt(copy(dmA.qryDataHora.Fields[0].AsString,4,2));
      wDay:= StrToInt(copy(dmA.qryDataHora.Fields[0].AsString,1,2));
      //Definindo a hora do sistema
      wHour:= StrToInt(copy(dmA.qryDataHora.Fields[1].AsString,1,2));
      wMinute:= StrToInt(copy(dmA.qryDataHora.Fields[1].AsString,4,2)); 
      wSecond:= StrToInt(copy(dmA.qryDataHora.Fields[1].AsString,7,2)); 
      end;

   //Colocar a data e hora do sistema
   SetLocalTime(SystemTime);
end;