zoukankan      html  css  js  c++  java
  • DELPHI下读取与设置系统时钟

    在DELPHI下读取与设置系统时钟
    很多朋友都想在自己的程序中显示系统时间
    这在DELPHI中十分容易
    利用DateToStr(Date)及TimeToStr(Time)函数即可实现。


    二者的函数原型如下:
    function DateToStr(Date:TDateTime):string;

    function TimeToStr(Time:TDateTime):string;

    其返回值均为String型。

    在程序中我们可以这样使用:

    Label1.Caption:=DateToStr(Date);

    Lable2.Caption:=TimeToStr(Time);

    二者分别调用了Delphi函数Date和Time读取系统日期和时间来实现的

    但只能读系统时钟

    而不能设置系统时钟。那么如何处理这一问题呢?这正是本文所要讨论的问题。

    既然Delphi没有提供如此功能

    但Delphi提供了调用WindowsAPI的接口。所以我们可以调用WindowsAPI函数来实现这一功能。具体方法如下:

    procedure TForm1.Button1Click(Sender:TObject);

    begin

    Edit1.Text:='97/10/30 10:09:59'; //注意:控制面板内时间格式要为YY/MM/DD

    end;

    procedure TForm1.Button2Click(Sender:TObject);

    var  systemtime:Tsystemtime;

    DateTime:TDateTime;

    begin

    DateTime:=StrToDateTime(Edit1.text); //获得时间(TDateTime格式)

    DateTimeToSystemTime(DateTime

    systemtime); //把Delphi的TDateTime格式转化为API的TSystemTime格式

    SetLocalTime(SystemTime); //设置系统时间

    GetLocalTime(SystemTime); //读取系统时间

    DateTime:=SystemTimeToDateTime(SystemTime); //把API的TSystemTime格式 转化为 Delphi的TDateTime格式

    Edit2.Text:=DateTimeToStr(DateTime); //显示当前系统的时间

    end;

    另外

    还有好多其它的Delphi函数和API函数供我们使用

    如: StrToDate、StrToTime、DateTimeToStr、StrToDateTime、DateTimeToSystemTime、SystemTimeToDateTime、DateTimeToTimeStamp、TimeStampToDateTimeCompareFileTime、DosDateTimeToFileTime、FileTimeToDosDateTime、FileTimeToLocalFileTime、FileTimeToSystemTime、GetFileTime、SetFileTime、GetSystemTime(格林威治时间)、SetSystemTime.GetSystemTimeAdjustment

    SetSystemTimdAdjustment。


    //TSystemTime的格式

    PSystemTime = ^TSystemTime;

    TSystemTime = record

    wYear: Word;

    wMonth: Word;

    wDayOfWeek: Word; //当前的系统时间是星期几

    wDay: Word;

    wHour: Word;

    wMinute: Word;

    wSecond: Word;

    wMilliseconds: Word;

    end;

    //TDateTime的格式

    TDateTime = type Double

  • 相关阅读:
    Python 3 Mysql 增删改查
    Python3 MySQL 数据库连接 -PyMySQL
    java 获取cookie
    Python 通过配置文件 读取参数,执行测试用例,生成测试报告并发送邮件
    Python 操作 Excel 、txt等文件
    SonarQube代码质量管理平台安装与使用
    Python + HTMLTestRunner + smtplib 完成测试报告生成及发送测试报告邮件
    Python 解析Xml文件
    GO语言基础
    FileBeat
  • 原文地址:https://www.cnblogs.com/javawebsoa/p/3239039.html
Copyright © 2011-2022 走看看