fbpx

Alterando a data do sistema

Alterando a data do sistema

Como alterar a data do sistema via Delphi

1a. Parte: A função.

function SetNewTime(Ano, Mes, Dia, hour, minutes: word): Boolean;
var
st:TSYSTEMTIME;
begin
GetLocalTime(st);
st.wYear := Ano;
st.wMonth := Mes;
st.wDay := Dia;
st.wHour := hour;
st.wMinute := minutes;
if not SetLocalTime(st) then
Result := False
else
Result := True;
end;

2a. Parte: Chamada da Função.

procedure TForm1.Button1Click(Sender: TObject);
begin
SetNewTime(2002,2,10,18,07);
end;

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.