مثال كامل لقراءة وقت النظام والتاريخ في دلفي

توضح هذه المقالة طريقة تنفيذ قراءة وقت النظام وتاريخه في دلفي. أولاً، قم بإعداد عناصر تحكم مختلفة لعرض الوقت وقراءة الوقت وتحديد الوقت. ثم قم بإضافة الكود التالي:

 وحدة Unit1؛ تستخدم واجهات Windows، والرسائل، وSysUtils، والفئات، والرسومات، وعناصر التحكم، والنماذج، ومربعات الحوار، وStdCtrls؛ اكتب TForm1 = class(TForm) Button1: TButton; FormCreate(Sender: TObject الإجراء Button2Click(Sender: TObject); خاص { إعلانات خاصة } عامة { إعلانات عامة } نهاية؛ فار Form1: TForm1؛ التنفيذ {$R *.DFM} يستخدم ShellAPI؛ الدالة SetSystemDateTime(Year, Month, Day, Hour, Minute, Second: word): عدد صحيح. ؛ إجراء التصدير SetDate(Year, Month, Day: Word: asm MOV CX,Year MOV DH,BYTE PTR Month MOV); DL، BYTE PTR Day MOV AH، 2BH INT 21H نهاية؛ الإجراء SetTime (Hour، Minute، Second، Sec100: Word)؛ ,BYTE PTR Sec100 MOV AH,2DH INT 21H نهاية;بدء SetDate(Year, شهر، يوم)؛ SetTime(Hour, Minute + 1, Second, 0); // عرض وقت النظام Memo1.Lines.Add('System time = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond));end;إجراء TForm1.FormCreate (المرسل: TObject);بدء المذكرة1.Lines.Clear;نهاية;الإجراء TForm1.Button2Click(Sender: TObject);var st: TSYSTEMTIME;begin DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46' ),st); SetSystemTime(st);end;end.