alterar data e hora via programação?

Delphi

07/02/2005

Amigos, como faço para alterar data e hora do sistema via programação

quando meu aplicativo for iniciado gostaria de exibir a data e a hora do
sistema para que seja confirmada pelo usuario, se estiver errada gostaria
que ele apenas digitasse a data e a hora certa, e confirmasse.
tem como?

desde ja agradeço...




delphi 7.0 e firebird 1.5


Marcusbraga

Marcusbraga

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

07/02/2005

Colega,

Fiz um pequeno exemplo com a data. Para inserir as demais informações, basta seguir o exemplo e o code-insight.

var SystemTime: TSystemTime;
  Ano, Mes, Dia: Word;
begin
  DecodeDate(DateTimePicker1.Date, Ano, Mes, Dia);
  GetSystemTime(SystemTime);
  SystemTime.wYear := Ano;
  SystemTime.wMonth := Mes;
  SystemTime.wDay := Dia;
  SetLocalTime(SystemTime);
end;



GOSTEI 0
POSTAR