Delphi讀取系統時間+日期

一個小小的Delphi時間控制示例，獲取系統時間，費話不多說了，看運行截圖吧：

具體代碼如下：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 05   StdCtrls; 06 type 07   TForm1 = class(TForm) 08     Button1: TButton; 09     Memo1: TMemo; 10     Button2: TButton; 11     procedure Button1Click(Sender: TObject); 12     procedure FormCreate(Sender: TObject); 13     procedure Button2Click(Sender: TObject); 14   private 15     { Private declarations } 16   public 17     { Public declarations } 18   end; 19 var 20   Form1: TForm1; 21 implementation 22 {$R *.DFM} 23 uses ShellAPI; 24 function SetSystemDateTime(Year, Month, Day, Hour, Minute, Second: Word): integer;   export; 25   procedure SetDate(Year, Month, Day: Word); assembler; 26   asm 27     MOV CX,Year 28     MOV DH,BYTE PTR Month 29     MOV DL,BYTE PTR Day 30     MOV AH,2BH 31     INT 21H 32   end; 33   procedure SetTime(Hour, Minute, Second, Sec100: Word); assembler; 34   asm 35     MOV CH,BYTE PTR Hour 36     MOV CL,BYTE PTR Minute 37     MOV DH,BYTE PTR Second 38     MOV DL,BYTE PTR Sec100 39     MOV AH,2DH 40     INT 21H 41   end; 42 begin 43   SetDate(Year, Month, Day); 44   SetTime(Hour, Minute + 1, Second, 0); 45   result := 1; 46 end; 47 procedure TForm1.Button1Click(Sender: TObject); 48 var 49         st : TSYSTEMTIME; 50 begin 51         //得到系統時間 52         GetSystemTime(st); 53     //顯示系統時間 54         Memo1.Lines.Add('系統時間 = ' + 55                   IntToStr(st.wmonth) + '/' + 56                   IntToStr(st.wDay) +  '/' + 57                   IntToStr(st.wYear) + ' ' + 58                   IntToStr(st.wHour) +  ':' + 59                   IntToStr(st.wMinute) +  ':' + 60                   IntToStr(st.wSecond)); 61 end; 62 procedure TForm1.FormCreate(Sender: TObject); 63 begin 64         Memo1.Lines.Clear; 65 end; 66 procedure TForm1.Button2Click(Sender: TObject); 67 var 68   st: TSYSTEMTIME; 69 begin 70   DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46' ),st); 71   SetSystemTime(st); 72 end; 73 end.