نحوه تنظيم و بروز رساني تاريخ وساعت سيستم توسط كاربر

[imani1983]

نحوه تنظيم و بروز رساني تاريخ وساعت سيستم توسط كاربر(مثل بعضي از برنامه ها كه موقع ورود تاريخ سيستم را با تاريخ برنامه ست مي كنند)

[Delphi7_love]

اگه منظورتون اینه که با تنظیم کردن ساعت سیستم از داخل برنامه مشکل دارید این کد میتونه کمکتون کنه

procedure TForm1.Button1Click(Sender: TObject);
var
SystemTime: TSystemTime;
NewTime, NewDate: string;
begin
NewTime := Edit1.Text;
NewDate := Edit2.Text;
DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
SetLocalTime(SystemTime);
PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0);
end;

[imani1983]

من اين خط ها رو امتحان كردم ولي تغيري پيدا نكرد؟

[Felony]

از تابع SetSystemTime استفاده کنید .