quarta-feira, 30 de setembro de 2009

Alterando a data e hora do sistema

{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.

Nenhum comentário:

Postar um comentário