تنظیم کردن تاریخ سیستم

[Delphi7_love]

چطور میشه با کد نویسی تاریخ سیستم رو تنظیم کرد

[Felony]

var
SystemTime: TSystemTime;
NewTime, NewDate: string;
begin
NewTime := '13:58:00';
NewDate := '02/02/01';
DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
SetLocalTime(SystemTime);
PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0);
end;