كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-

alla23 الخميس يوليو 16, 2015 2:05 pm

كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

كيفية تغيير التاريخ والوقت بواسطة برنامج تم انجازه بالدلفي

انشاء مشروع جديد دلفي

Nouveau Projet Delphi

1 -> TForm
2 -> TEdit
2 -> TLabel
1 -> TButton

ضع على الفورم 2 مربع نص من نوع -TEdit-
و 2 مربع لافتة من من نوع -TLabel-
1 زر ضغط من نوع -TButton-

الكود:: procedure TForm1.Button1Click(Sender: TObject); var SystemTime: TSystemTime; dDate: TDate; mTime: TTime; begin // '16/07/2015' or '16-07-2015' and '10:15:00' for Windows XP 32bit dDate := StrToDate(Edit1.Text); mTime := StrToTime(Edit2.Text); DateTimeToSystemTime(dDate + mTime, SystemTime); SetLocalTime(SystemTime); PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); end;

الكود:: procedure TForm1.FormShow(Sender: TObject); begin Label1.Caption := 'Entrez Date'; Label1.Caption := 'Entrez Time'; Edit1.Text :=DateToStr(Now); Edit2.Text :=TimeToStr(Now); Button1.Enabled := false; end;

الكود:: procedure TForm1.Edit1Change(Sender: TObject); begin if(Edit1.Text <> '')or(Edit2.Text <> '')then Button1.Enabled := true else Button1.Enabled := false; end;

الكود:: procedure TForm1.Edit2Change(Sender: TObject); begin Edit1Change(Sender); end;