本文讲述了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. 如果只想看到错误的话,可以用下面这个命令: 我的系统没有报错的,所以