Delphi实现读取系统时间与日期完整实例

319 阅读 0 评论 211 点赞

我是靠谱客的博主清脆麦片，这篇文章主要介绍Delphi实现读取系统时间与日期完整实例，现在分享给大家，希望可以做个参考。

本文讲述了Delphi读取系统时间与日期的实现方法，首先设置各个控件用于显示时间、读取时间与设置时间。再添加如下代码：

复制代码

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;
type
 TForm1 = class(TForm)
  Button1: TButton;
  Memo1: TMemo;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure Button2Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 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;
 asm
  MOV CX,Year
  MOV DH,BYTE PTR Month
  MOV DL,BYTE PTR Day
  MOV AH,2BH
  INT 21H
 end;
 procedure SetTime(Hour, Minute, Second, Sec100: Word); assembler;
 asm
  MOV CH,BYTE PTR Hour
  MOV CL,BYTE PTR Minute
  MOV DH,BYTE PTR Second
  MOV DL,BYTE PTR Sec100
  MOV AH,2DH
  INT 21H
 end;
begin
 SetDate(Year, Month, Day);
 SetTime(Hour, Minute + 1, Second, 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));
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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;
type
 TForm1 = class(TForm)
  Button1: TButton;
  Memo1: TMemo;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure Button2Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 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;
 asm
  MOV CX,Year
  MOV DH,BYTE PTR Month
  MOV DL,BYTE PTR Day
  MOV AH,2BH
  INT 21H
 end;
 procedure SetTime(Hour, Minute, Second, Sec100: Word); assembler;
 asm
  MOV CH,BYTE PTR Hour
  MOV CL,BYTE PTR Minute
  MOV DH,BYTE PTR Second
  MOV DL,BYTE PTR Sec100
  MOV AH,2DH
  INT 21H
 end;
begin
 SetDate(Year, Month, Day);
 SetTime(Hour, Minute + 1, Second, 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));
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.