تنظيم تاريخ سيستم

[Delphi&Kylix_2939]

باسلام
چطور ميشه تاريخ از كاربر دربافت بشه و با تائيد اون تاريخ سيستم به اون تاريخ تغيير پيدا كنه؟
با تشكر

[tdkhakpur]

procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word);
var
NewDateTime: TSystemTime;
begin
FillChar(NewDateTime, SizeOf(NewDateTime), #0);
NewDateTime.wYear := Year;
NewDateTime.wMonth := Month;
NewDateTime.wDay := Day;
NewDateTime.wHour := Hour;
NewDateTime.wMinute := Minu;
NewDateTime.wSecond := Sec;
NewDateTime.wMilliseconds := MSec;
SetLocalTime(NewDateTime);
end;
مثال
SetDateTime(2010, 7, 18, 2, 10, 10, 0);