Como alterar a data do sistema ?
09/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
09/02/2003
Sidfaria
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)