บทความนี้จะอธิบายวิธีการใช้งานการอ่านเวลาและวันที่ของระบบใน Delphi ขั้นแรก ให้ตั้งค่าการควบคุมต่างๆ สำหรับการแสดงเวลา เวลาในการอ่าน และการตั้งค่าเวลา จากนั้นเพิ่มรหัสต่อไปนี้:
หน่วย Unit1; อินเทอร์เฟซ Windows, ข้อความ, SysUtils, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, กล่องโต้ตอบ, StdCtrls; พิมพ์ TForm1 = class (TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; FormCreate (ผู้ส่ง: TObject ขั้นตอน Button2Click (ผู้ส่ง: TObject); ส่วนตัว { ประกาศส่วนตัว } สาธารณะ { ประกาศสาธารณะ } end;var Form1: TForm1;การนำไปใช้งาน{$R *.DFM}ใช้ ShellAPI;ฟังก์ชัน SetSystemDateTime(ปี, เดือน, วัน, ชั่วโมง, นาที, วินาที: คำ): จำนวนเต็ม ; ส่งออก ขั้นตอน SetDate (ปี, เดือน, วัน: Word); asm MOV CX, ปี MOV DH, BYTE PTR เดือน MOV DL, BYTE PTR วัน MOV AH, 2BH INT 21H สิ้นสุด; ขั้นตอน SetTime (ชั่วโมง นาที วินาที วินาที 100: Word); asm MOV CH, BYTE PTR ชั่วโมง MOV CL, BYTE PTR นาที MOV DH, BYTE PTR วินาที MOV DL ,BYTE PTR Sec100 MOV AH,2DH INT 21H สิ้นสุด; เริ่มต้น SetDate (ปี, เดือน, วัน); SetTime (ชั่วโมง, นาที + 1, วินาที, 0); ผลลัพธ์ := 1; สิ้นสุด; ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject); var st : TSYSTEMTIME; เริ่ม // รับเวลาของระบบ GetSystemTime (st ); //แสดงเวลาของระบบ Memo1.Lines.Add('System time = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond));ปลาย;ขั้นตอน TForm1.FormCreate (ผู้ส่ง: TObject);เริ่มต้น Memo1.Lines.Clear;end;ขั้นตอน TForm1.Button2Click (ผู้ส่ง: TObject);var st: TSYSTEMTIME;begin DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46' ),st); SetSystemTime(st);end;end.