+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: تغییر ساعت سیستم (/showthread.php?tid=587)
تغییر ساعت سیستم - Amin_Mansouri - 08-01-2011
از این تابع برای تغییر ساعت سیستم استفاده کنید
کد:
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;