Delphi实现读取系统时间与日期完整实例
<p>本文讲述了Delphi读取系统时间与日期的实现方法，首先设置各个控件用于显示时间、读取时间与设置时间。再添加如下代码：</p><div class="jb51code">
<pre class="brush: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.
</pre>
</div>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>系统时间改为2000年 修改系统时间病毒</li><li>javascript 显示当前系统时间代码</li><li>sql server 获取系统时间的方法</li><li>js显示当前系统时间的代码</li><li>jQuery动态地获取系统时间实现代码</li><li>使用C语言中的time函数获取系统时间</li><li>jsp实现页面实时显示当前系统时间的方法</li><li>TextView显示系统时间(时钟功能带秒针变化</li><li>asp.net中页面显示当前系统时间附图</li><li>Android调用系统时间格式显示时间信息</li><li>C#实现修改系统时间的方法</li><li>C#利用win32 Api 修改本地系统时间、获取硬盘序列号</li><li>python修改操作系统时间的方法</li><li>VC++ 获取系统时间的方法汇总</li><li>利用线程实现动态显示系统时间</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]