تغيير توقيت و تارخ الجهاز
هناك struct(record) في Windows واسمهٍ TSYSTIMTIME
نعرف متحول من نوعه ونسند له القيم التي نريد( السنة , الشهر, اليوم, الساعة, الدقيقة, الثاينة, ميلي ثانية) ونسند قيمته إلىwindows......بواسطة تابع
SetLocalTime
وهذه بنية الRecord
typedef struct _SYSTEMTIME {
WORD wYear;
WORD wMonth; // January is 1.....
WORD wDayOfWeek; // Sunday is 0, Monday is 1, and so on.
WORD wDay; // The current day of the month 20...11...26..
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds; }
procedure TForm1.Button1Click(Sender: TObject);
var
SystemTime : TSystemTime;
begin
SystemTime.wYear := 2005;
SystemTime.wMonth := 5;
SystemTime.wDay := 23;
SystemTime.wHour := 23;
SystemTime.wMinute := 20;
SystemTime.wSecond := 0;
SystemTime.wMilliSeconds := 0;
SetLocalTime(SystemTime);
end;
وللحصول على التاريخ الحالي نستخدم التابع
GeTLocalTime(systemtime);