Alterar data do windows

Delphi

11/05/2005

Como faço para que minha aplicação altere a data do sistema operacioanl (Windows)?


Jener

Jener

Curtidas 0

Respostas

Bruno Belchior

Bruno Belchior

11/05/2005

Utilize a função [b:ed028a01fb]SetLocalTime[/b:ed028a01fb] que está na biblioteca [b:ed028a01fb]Windows[/b:ed028a01fb] ele pede um argumento do tipo [b:ed028a01fb]TSystemTime[/b:ed028a01fb] para poder utiliza-lá converta um tipo [b:ed028a01fb]TDateTime[/b:ed028a01fb] para TSystemTime com o procedimento [b:ed028a01fb]DateTimeToSystemTime[/b:ed028a01fb]... ex.:
var
  NovaData: TSystemTime;
  Data;
begin
  Data := EncodeDate := EncodeDateTime(2001, 04, 20, 12, 00, 00, 00);
  DateTimeToSystemTime(Data, NovaData); 
  SetLocalTime(NovaData);
end;
só lembrando ue [b:ed028a01fb]EncodeDate[/b:ed028a01fb] está na biblioteca [b:ed028a01fb]DateUtils[/b:ed028a01fb] valeu...


GOSTEI 0
POSTAR