تنظیم تاریخ و ساعت ویندوز

[seyed_farid]

چگونه میتوان از درون برنامه تاریخ و ساعت ویندوز را تنظیم نمود ؟
البته اگر دوستان بتوانند در مورد روش گرفتن زمان از GPS مرا هم راعنمایی کنند ممنون میشوم. :تشویق:

[Mahdi_S_T]

توسط تابع زیر میتوانید تاریخ سیستم رو عوض کنید



function ChangeSystemDateTime(dtNeeded: TDateTime): Boolean;
var
tzi: TTimeZoneInformation;
dtSystem: TSystemTime;
begin
GetTimeZoneInformation(tzi);
dtNeeded := dtNeeded + tzi.Bias / 1440;
with dtSystem do
begin
wYear := StrToInt(FormatDateTime('yyyy', dtNeeded));
wMonth := StrToInt(FormatDateTime('mm', dtNeeded));
wDay := StrToInt(FormatDateTime('dd', dtNeeded));
wHour := StrToInt(FormatDateTime('hh', dtNeeded));
wMinute := StrToInt(FormatDateTime('nn', dtNeeded));
wSecond := StrToInt(FormatDateTime('ss', dtNeeded));
wMilliseconds := 0;
end;
Result := SetSystemTime(dtSystem);
end;

[seyed_farid]

بسیار متشکرم دوست عزیز:تشویق:

[دنی کوئیل]

چگونه پارامتر ارسال کنیم به این تابع

[Mahdi_S_T]

خوب معلومه یه مقدار از نوع DateTime را به ورودی تابع میدهیم

[MiRHaDi]

سلام


ChangeSystemDateTime(2005/5/2)

[راحله سعادتی]

اگر بخواهیم ساعت را تنظیم کنیم باید چه کدی بنویسیم ؟

[mohammad_2oo5s]

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;