08-01-2011، 07:42 PM
از این تابع برای تغییر ساعت سیستم استفاده کنید
کد:
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;