当前位置: 首页 > 编程笔记 >

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

韦泳
2023-03-14
本文向大家介绍Delphi实现读取系统时间与日期完整实例,包括了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.
 类似资料:
  • 本文向大家介绍纯JavaScript实现实时反馈系统时间,包括了纯JavaScript实现实时反馈系统时间的使用技巧和注意事项,需要的朋友参考一下 用javascript反馈系统时间 运用知识 JavaScript HTML DOM HTML DOM 中的setInterval() 方法会不停地调用函数,直到 clearInterval() 被调用或窗口被关闭。由 setInterval() 返回

  • 本文向大家介绍Delphi实现图片滚动切换的完整实例代码,包括了Delphi实现图片滚动切换的完整实例代码的使用技巧和注意事项,需要的朋友参考一下 本文以实例介绍了Delphi实现图片滚动切换的方法。该程序可以实现图像的滚动播出,并且通过本代码可控制窗口中的图像向上滚动,通过调节速度滚动条的值还可以调整滚动的速度;点击“停止”按钮,图像即停止滚动。 完整的功能代码如下:

  • 本文向大家介绍js实现精确到秒的日期选择器完整实例,包括了js实现精确到秒的日期选择器完整实例的使用技巧和注意事项,需要的朋友参考一下 本文实例讲述了js实现精确到秒的日期选择器。分享给大家供大家参考,具体如下: 更多关于JavaScript相关内容可查看本站专题:《JavaScript时间与日期操作技巧总结》、《JavaScript切换特效与技巧总结》、《JavaScript查找算法技巧总结》、

  • 本文向大家介绍Delphi实现图像文本旋转特效完整实例代码,包括了Delphi实现图像文本旋转特效完整实例代码的使用技巧和注意事项,需要的朋友参考一下 本文以实例讲述了Delphi实现图像文本旋转特效的解决方法,在本程序中利用的控件主要是Panel 控件、Image 控件、Edit 控件、Label 控件和Button 控件。本程序的关键是利用Delphi 的bmp_rotate()函数来实现旋转

  • 我目前正在构建一个应用程序使用JavaFx与一个额外的功能,显示当前的日期和时间在顶角的场景。由于我是JavaFX新手,我不知道如何实现这个。 我试图使用swing中的旧代码,但我得到了一个IllegalStateException错误。 这是我的密码。 MainMenuController.java Main.java 正如您所注意到的,我测试了它在控制台中打印实时时间。是的,它起作用了,但标签

  • 本文向大家介绍shell脚本实现linux系统文件完整性检测,包括了shell脚本实现linux系统文件完整性检测的使用技巧和注意事项,需要的朋友参考一下 今天发现个可以检测系统文件完整性的shell脚本,自己试了下还可以吧,介绍给大家。 系统:centos 5.x 脚本内容: 执行脚本: 进行校验: 如下: 可以看到很多OK. 如果只想看到错误的话,可以用下面这个命令: 我的系统没有报错的,所以