Como alterar a data do sistema ?
Caros amigos, preciso de uma rotina para alterar a data do sistema.
Testei uma rotina que achei em um tutorial de dicas, mas não funcionou.
AGradeço desde já.
Testei uma rotina que achei em um tutorial de dicas, mas não funcionou.
AGradeço desde já.
Anonymous
Curtidas 0
Respostas
Sidfaria
09/02/2003
Para alterar a hora e a data do sistema
procedure TForm1.Button1Click(Sender: TObject);
var
SystemTime : TSystemTime;
begin
With SystemTime do
begin
//Definindo o dia do sistema
wYear:= 1996;
wMonth:= 5;
wDay:= 10;
//Definindo a hora do sistema
wHour:= 20; //hora
wMinute:= 50; //minutos
wSecond:= 59; //segundos
end;
//Colocar a hora e data do sistema
SetLocalTime(SystemTime);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
SystemTime : TSystemTime;
begin
With SystemTime do
begin
//Definindo o dia do sistema
wYear:= 1996;
wMonth:= 5;
wDay:= 10;
//Definindo a hora do sistema
wHour:= 20; //hora
wMinute:= 50; //minutos
wSecond:= 59; //segundos
end;
//Colocar a hora e data do sistema
SetLocalTime(SystemTime);
end;
GOSTEI 0