Delphi实现读取系统时间与日期完整实例
本文讲述了Delphi读取系统时间与日期的实现方法，首先设置各个控件用于显示时间、读取时间与设置时间。再添加如下代码：
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,
StdCtrls;
type
TForm1=class(TForm)
Button1:TButton;
Memo1:TMemo;
Button2:TButton;
procedureButton1Click(Sender:TObject);
procedureFormCreate(Sender:TObject);
procedureButton2Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.DFM}
usesShellAPI;
functionSetSystemDateTime(Year,Month,Day,Hour,Minute,Second:word):integer;export;
procedureSetDate(Year,Month,Day:Word);assembler;
asm
MOVCX,Year
MOVDH,BYTEPTRMonth
MOVDL,BYTEPTRDay
MOVAH,2BH
INT21H
end;
procedureSetTime(Hour,Minute,Second,Sec100:Word);assembler;
asm
MOVCH,BYTEPTRHour
MOVCL,BYTEPTRMinute
MOVDH,BYTEPTRSecond
MOVDL,BYTEPTRSec100
MOVAH,2DH
INT21H
end;
begin
SetDate(Year,Month,Day);
SetTime(Hour,Minute+1,Second,0);
result:=1;
end;
procedureTForm1.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;
procedureTForm1.FormCreate(Sender:TObject);
begin
Memo1.Lines.Clear;
end;
procedureTForm1.Button2Click(Sender:TObject);
var
st:TSYSTEMTIME;
begin
DateTimeToSystemTime(StrToDatetime('2002-06-2315:39:46'),st);
SetSystemTime(st);
end;
end.