Alterando Data e Hora
Olá Pessoal, estou precisando urgentemente de criar um formulário para alterar a data e a hora tipo o do ícone data e hora do painel de controle do windows.
Já coloquei componentes de calendário, e edit´s mas na hora de alterar é que tenho dificuldades.
Grato pela Atenção e qualquer ajuda já vale.
Ruy Fernandes
Já coloquei componentes de calendário, e edit´s mas na hora de alterar é que tenho dificuldades.
Grato pela Atenção e qualquer ajuda já vale.
Ruy Fernandes
Ruy Fernandes
Curtidas 0
Respostas
Cristiano Flores
27/04/2003
Caro Ruy,
Segue abaixo uma função que peguei de uma arquivo de dicas:
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;
Caso queira este arquivo, acesse www.lloydsoft.hpg.ig.com.br!!!
Até +
Segue abaixo uma função que peguei de uma arquivo de dicas:
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;
Caso queira este arquivo, acesse www.lloydsoft.hpg.ig.com.br!!!
Até +
GOSTEI 0