Change the system time  

Send By: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Date: 13/09/99

Tip accessed 495 times

 



 procedure TForm1.Button1Click(Sender: TObject);
 var
    HoraSistema : TSystemTime;
    NewTime:string;
 begin
    {New Time}
    {Nueva hora:}
    NewTime:='13:58:00';
    DateTimeToSystemTime( Date+StrToTime(NewTime),HoraSistema);
    SetLocalTime(HoraSistema);
 end;