Buscar por:

Alterando a data e hora do sistema

Código

{Alterando a data e hora do sistema

Na dica de hoje veremos como alterar a data e hora do sistema de forma bem simples. Primeiramente crie uma nova aplicação e adicione ao Form dois componentes TEdit e um TButton. Limpe a propriedade Text dos Edits.

Declare a procedure DataHora public da Unit }

public

  { Public declarations }

  procedure DataHora(Data, Hora: TDateTime);

//Agora crie a procedure na área Implementation

procedure TForm1.DataHora(Data, Hora: TDateTime);

var

  DataHora: TSystemTime;

  Ano, Mes, Dia,

  H, M, S, Mil: word;

begin

  Data := StrToDate(Edit1.Text);

  Hora := StrToTime(Edit2.Text);

  DecodeDate(Data, Ano, Mes, Dia);

  DecodeTime(Hora, H, M, S, Mil);

  with DataHora do

  begin

    wYear := Ano;

    wMonth := Mes;

    wDay := Dia;

    wHour := H;

    wMinute := M;

    wSecond := S;

    wMilliseconds := Mil;

  end;

  SetLocalTime(DataHora);

end;

//Faça a chamada à procedure no evento OnClick do Button1

procedure TForm1.Button1Click(Sender: TObject);

begin

  DataHora(StrToDateTime(Edit1.Text), StrToDateTime(Edit2.Text));

end;

//Pronto, agora é só executar o programa e ver seu funcionamento.