توضح هذه المقالة طريقة تنفيذ قراءة وقت النظام وتاريخه في دلفي. أولاً، قم بإعداد عناصر تحكم مختلفة لعرض الوقت وقراءة الوقت وتحديد الوقت. ثم قم بإضافة الكود التالي:
وحدة 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.