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;