この記事では、Delphi でシステムの時刻と日付を読み取る実装方法について説明します。まず、時刻の表示、時刻の読み取り、時刻の設定のためのさまざまなコントロールを設定します。次に、次のコードを追加します。
ユニット Unit1; インターフェイスは Windows、メッセージ、SysUtils、クラス、グラフィックス、コントロール、フォーム、ダイアログ、StdCtrls を使用します; type TForm1 = class(TForm) Button1: TButton; Memory Button2: TButton; プロシージャ Button1Click(Sender: TObject); FormCreate(Sender: TObject); プロシージャ Button2Click(Sender: TObject); private { プライベート宣言 } public { パブリック宣言 } end;var Form1: TForm1;implementation{$R *.DFM}use ShellAPI;function SetSystemDateTime(年、月、日、時、分、秒: word): integer ; エクスポート; プロシージャ SetDate(年、月、日: Word); DL,BYTE PTR 日 MOV AH,2BH INT 21H end; プロシージャ SetTime(時、分、秒、秒 100: Word); asm MOV CH,BYTE PTR 時 MOV DH,BYTE PTR 秒 MOV DL ,BYTE PTR Sec100 MOV AH,2DH INT 21H end;begin SetDate(年, Month, Day); SetTime(時, 分 + 1, 秒, 0); result := 1;end;procedure TForm1.Button1Click(Sender: TObject);var st : TSYSTEMTIME;begin // システム時刻を取得します GetSystemTime(st) ) ; //システム時刻を表示 Memo1.Lines.Add('システム時刻 = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wyear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond));終了;プロシージャ TForm1.FormCreate (送信者: TObject);メモ1.Lines.Clearを開始;終了;プロシージャTForm1.Button2Click(Sender: TObject);var st: TSYSTEMTIME;begin DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46' ),st);