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.
赞 (0)

相关推荐

  • js显示当前系统时间的代码

    js获取当前系统时间 复制代码 代码如下: var myDate = new Date();      myDate.getYear();        //获取当前年份(2位)      myDate.getFullYear();    //获取完整的年份(4位,1970-????)      myDate.getMonth();       //获取当前月份(0-11,0代表1月)      myDate.getDate();        //获取当前日(1-31)      myDate

  • 使用C语言中的time函数获取系统时间

    可以通过time()函数来获得计算机系统当前的日历时间(Calendar Time),处理日期时间的函数都是以本函数的返回值为基础进行运算.其原型为:time_t time(time_t * t);如果你已经声明了参数t,你可以从参数t返回现在的日历时间,同时也可以通过返回值返回现在的日历时间,即从一个时间点(例如:1970年1月1日0时0分0秒)到现在此时的秒数.如果参数为空(NULL),函数将只通过返回值返回现在的日历时间,比如下面这个例子用来显示当前的日历时间: 复制代码 代码如下: #i

  • C#实现修改系统时间的方法

    本文所述C#获取和修改系统时间的实现步骤为:系统的时间从 SystemTime 结构体中取出,并显示在textBox1上,从setDate,setTime控件中获取年,月,日,小时,分钟,秒信息,存入SystemTime结构体中,然后使用SetLocalTime(ref systemTime)设置为用户指定的时间.本代码编译后会有一个易于操作的窗体. 完整功能代码如下: using System; using System.Drawing; using System.Collections; u

  • javascript 显示当前系统时间代码

    1.在<head></head>中加入下列代码 复制代码 代码如下: <script language=JavaScript> var timerID = null; var timerRunning = false; function stopclock (){ if(timerRunning) clearTimeout(timerID); timerRunning = false;} function startclock () { stopclock(); sho

  • sql server 获取系统时间的方法

    Sql Server 中一个非常强大的日期格式化函数: 获得当前系统时间,GETDATE(): 2008年01月08日 星期二 14:59 Select CONVERT(varchar(100), GETDATE(), 0): 05 16 2008 10:57AM Select CONVERT(varchar(100), GETDATE(), 1): 05/16/08 Select CONVERT(varchar(100), GETDATE(), 2): 08.05.16 Select CONV

  • Android调用系统时间格式显示时间信息

    使用如下方法: 复制代码 代码如下: java.text.DateFormat dateFormat = android.text.format.DateFormat.getDateFormat(context); dateFormat = android.text.format.DateFormat.getTimeFormat(context.getApplicationContext());

  • 系统时间改为2000年 修改系统时间病毒

    具体问题具体分析(SRENG日志本文略).如下为本问题的解决方案 请仔细阅读,看懂后操作. 进行如下操作前,请不要进行任何双击打开磁盘的操作.所有下载的工具都直接放桌面上. 1.关闭系统还原(Windows 2000系统可忽略该步) 2.强制删除如下的文件, 建议采用xdelbox 或者 powerRMV(可到down.45it.com下载)等工具.如果提示某文件不存在,请忽略之继续填入下一个直到完成. c:\windows\system32\rsjzapm.dll c:\windows\sys

  • jQuery动态地获取系统时间实现代码

    jQuery部分代码: 复制代码 代码如下: <script type="text/javascript"> function current(){ var d=new Date(),str=''; str +=d.getFullYear()+'年'; //获取当前年份 str +=d.getMonth()+1+'月'; //获取当前月份(0--11) str +=d.getDate()+'日'; str +=d.getHours()+'时'; str +=d.getMin

  • C#利用win32 Api 修改本地系统时间、获取硬盘序列号

    C#利用win32 Api 修改本地系统时间.获取硬盘序列号,可以用于软件注册机制的编写! 复制代码 代码如下: using System; using System.Collections.Generic; using System.Text; using System.Runtime.InteropServices; namespace Fengyun {     public class Win32     {         #region 修改本地系统时间         [DllIm

  • VC++ 获取系统时间的方法汇总

    1.使用CTime类(获取系统当前时间,精确到秒) CString str; //获取系统时间 CTime tm; tm=CTime::GetCurrentTime();//获取系统日期 str=tm.Format("现在时间是%Y年%m月%d日 %X"); MessageBox(str,NULL,MB_OK); a,从CTimet中提取年月日时分秒 CTime t = CTime::GetCurrentTime(); int d=t.GetDay(); //获得几号 int y=t.

  • python修改操作系统时间的方法

    本文实例讲述了python修改操作系统时间的方法.分享给大家供大家参考.具体实现方法如下: #-*- coding:utf-8 -*- import socket import struct import time import win32api TimeServer = '210.72.145.44' #国家授时中心ip Port = 123 def getTime(): TIME_1970 = 2208988800L client = socket.socket(socket.AF_INET

  • 利用线程实现动态显示系统时间

    编写Applet小程序,通过在HTML文档中接收参数, 用不同颜色.字体显示当前的系统时间. import java.awt.*; import java.applet.Applet; import java.util.*; import java.awt.Graphics; public class clock extends Applet implements Runnable //继承Applet类并实现Runnable接口 { Thread clockThread=null; //创建一

  • TextView显示系统时间(时钟功能带秒针变化

    我们开启一个线程,线程每隔一秒发送一次消息,我们在消息中更新TextView上显示的时间就ok了. 首先我们在布局文件中放一个TextView用来显示时间,如下所示: 复制代码 代码如下: <?xml version="1.0" encoding="utf-8"?><LinearLayout  xmlns:android="http://schemas.android.com/apk/res/android"  android:

  • jsp实现页面实时显示当前系统时间的方法

    JS代码 复制代码 代码如下: <script language="javascript"> function realSysTime(clock){ var now=new Date(); //创建Date对象 var year=now.getFullYear(); //获取年份 var month=now.getMonth(); //获取月份 var date=now.getDate(); //获取日期 var day=now.getDay(); //获取星期 var

  • asp.net中页面显示当前系统时间附图

    asp.net中页面显示当前系统时间附图

    复制代码 代码如下: <p class="time">当前系统时间:<script type="text/javascript"> today = new Date(); function initArray() { this.length = initArray.arguments.length for (var i = 0; i < this.length; i++) this[i + 1] = initArray.argument

随机推荐