تغییر تاریخ سیستم در دلفی

[MAJOR]

من می خوام تاریخ سیستم رو تغییر بدم کمک کنید

 

[saalek110]

با سلام.
یک باتون و لیبل به فرم بیافزایید.
کد زیر برای من عمل کرد ولی ساعت و دقیقه را با تغییراتی نشان میداد که در کد نوشته ام. کسی می داند چرا؟

procedure TForm1.Button1Click(Sender: TObject);
var
  dt: TSystemTime;
begin
  dt.wYear:=1999;  // dorost
  dt.wMonth:=2;   // dorost
  dt.wDay:=25;   // dorost
  dt.wHour:=10;     // +3 mishe
  dt.wMinute:=5;   // +30 mishe
  dt.wSecond:=0;
  dt.wMilliseconds:=0;
  if SetSystemTime(dt) then Label1.Caption:='Setting finished';
end;

منبع:
http://greatis.com/delphi/systemifo-setdatetime.html

 

[farhad110]

با سلام.
یک باتون و لیبل به فرم بیافزایید.
کد زیر برای من عمل کرد ولی ساعت و دقیقه را با تغییراتی نشان میداد که در کد نوشته ام. کسی می داند چرا؟
.
.
.

سلام
یه کم دیر جواب میدم ولی شاید به درد خورد!
کدی که شما نوشتی کاملا درسته و 3 ساعت و 30 دقیقه که تفاوت داره به timezone مربوط میشه (اختلاف زمانی ما با GMT)
یعنی دلفی زمان رو بر اساس ساعت رسمی در گرینویچ تغییر میده و ما 3:30 جلوتر هستیم. پس با همون کد نویسی میشه کنترلش کرد.