In diesem Artikel wird die Implementierungsmethode zum Lesen von Systemzeit und -datum in Delphi beschrieben. Richten Sie zunächst verschiedene Steuerelemente zum Anzeigen der Uhrzeit, zum Lesen der Uhrzeit und zum Einstellen der Uhrzeit ein. Fügen Sie dann den folgenden Code hinzu:
unit Unit1;interfaceuses Windows, Messages, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private Deklarationen } public { Öffentliche Deklarationen } end;var Form1: TForm1;implementation{$R *.DFM}uses ShellAPI;function SetSystemDateTime(Year, Month, Day, Hour, Minute, Second: word): integer ; export; procedure SetDate(Year, Month, Day: Word assembler); DL,BYTE PTR Tag MOV AH,2BH INT 21H Ende; Prozedur SetTime(Hour, Minute, Second, Sec100: Word Assembler); ,BYTE PTR Sec100 MOV AH,2DH INT 21H end;begin SetDate(Year, Monat, Tag); SetTime(Stunde, Minute + 1, Sekunde, 0); result := 1;end;procedure TForm1.Button1Click(Sender: TObject);var st : TSYSTEMTIME;begin //Erhalten Sie die Systemzeit GetSystemTime(st ) ; //Systemzeit anzeigen Memo1.Lines.Add('System time = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond));end;procedure TForm1.FormCreate (Sender: TObject);begin Memo1.Lines.Clear;end;procedure TForm1.Button2Click(Sender: TObject);var st: TSYSTEMTIME;begin DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46' ),st); SetSystemTime(st);end;end.