Delphi实现读取系统时间与日期完整实例
2014-07-18 09:51
1411 查看
本文讲述了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.
您可能感兴趣的文章:
相关文章推荐
- asp.net(C#)实现功能强大的时间日期处理类完整实例
- delphi 关于DateTimePicker的一点问题(同时修改日期和时间的实现)
- PPT实现播放时即时显示系统日期与时间
- php实现的XML操作(读取)封装类完整实例
- delphi中DateTimePicker同时修改日期和时间的实现
- Java实现的日期处理类完整实例
- JavaScript实现实时更新系统时间的实例代码
- 使用C#实现读取系统配置文件的代码实例讲解
- 【转载】Delphi获取与设置系统时间格式(长日期与短日期)
- Android入门实例四 设置日期和时间的设计与实现
- (三)边做边发---产销系统---详细设计--代码实现--更新时间2007/8/1--提供整站完整源代码下载
- Delphi实现碰撞球体完整实例代码
- js实现精确到秒的日期选择器完整实例
- Delphi实现图片滚动切换的完整实例代码
- SQL Server返回当前实例系统日期和时间的函数
- JS实现的系统调色板完整实例
- JS实现网页标题栏显示当前时间和日期的完整代码
- js实现精确到秒的日期选择器完整实例