说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在DELPHI下读取与设置系统时钟

HTML文档下载 WORD文档下载 PDF文档下载
在DELPHI下读取与设置系统时钟

二者的函数原型如下:

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

具体我们可以查Delphi所带的Win32.HLP(WindowsAPI帮助文件)

它在Delphi2.0ιHelp或Delphi3ιHelp目录下。

关于WP8开发者程序开发语言选择倾向的问题 强大的C#随机字符串生成器 C#上传文件到WEB服务器 WebClient的超时设置 MySQL备份脚本大全 c#对rar或zip文件进行压缩解压缩 c#采用递归非递归两种方式遍历目录下所有文件 使用DataContractJsonSerializer进行JSON序列化的JSONHelper类 宏病毒ToDOLE及专杀工具 如何构建和运行基于cocos2d的HelloWorld程序 C# .net 2.0 以Gmail发送Smtp邮件 ASP.NET优化性能方法之一:禁用调试模式 开源SMTP和POP3邮件服务器 三星:在专利上不会和苹果妥协 不止谷歌,微软也有自己的眼镜计划?! Windows 8商店应用总数突破20000大关 硝烟弥漫:三星起诉苹果最新iPad、iPod侵权 效仿Google Facebook欲整合Instagram用户数据 与苹果全面竞争?传微软明年推Xbox机顶盒 微软Ralph Haupter:WP8即将在中国上市 开发者黄金时代来临 Paul Graham:Y Combinator创始人成长轨迹 我们需要强密码吗? 为了改变?英特尔CEO宣布将于明年5月辞职 传苹果下一代Mac OS中将整合Siri及地图服务 TripAdvisor:使用AWS比服务器托管成本节省50% [MDCC精华]亚马逊AWS布道师Kingsley Wood:灵活IT架构之道 亚马逊诉讼彰显谷歌在公有云领域威慑力十足 AWS全球创业大赛 奖金100000美元 YY:破冰而出,成功上市 Xtreme Labs工程师:Android开发常陷入的五大深坑 Elon Musk:没了乔布斯的苹果干不过谷歌 关于数据库连接池的使用问题? 急,急,急,ODBC连接错误 怎样判断一个文件是否存在?怎样彻底删除一个文件? 错误处理,关于Exception急等 寻求:《com原理与应用》的电子版下载? 关于页面刷新的问题? 关于网络流量计算,紧急,在线等待,高手请指教 寻mp3控件,要能读取其tag信息. 请问如何将IE分成两部分,左边是一个APPLET写的tree,右边响应树中节点的事件(链接页面)? 如何才能得到本程序的cpu占有率?而不是总的cpu占有率? 如何编程枚举网上邻居 课件招标!!凡是我觉的有帮助的回答都给分!分不够可以再加!!先来100分!! 谁是高手?在线等待,立马给分! 发邮件问题 单挑高手:一个可变的字符串变量记录着类名(classname),怎么样根据这个符串的值创建所含信息的类实例?? 大放分!!!即放即給 一个在桌面上产生雪花的小程序,请帮忙修改。 请教一个程序速度的问题 辽宁沈阳的凯夫集团有知道情况的么? 好书是那本? 再请saucer(思归, MS .NET MVP),你帮忙得问题用你的方法解决了一半,还差一点。 关于界面控键问题! 为什么在设计时控件的属性不可以修改?在线等候 我的ROOT口令忘了,我该怎么办? 在RedHat8.0上安装Kylix3出现的问题?(关于文件包glibc检查出错)??????? VSS: Unable to check out the file <file> because it is already checked out. 一个暴难问题,关于两台电脑通过一个modem上网的问题。谢谢。 谁是高手,立马给分! 如何使ListControl 内容排序? 无法安装sql2000! 关于inport()和outport()的问题! 哪位仁兄手上有灰度图像的傅立叶变换和反变换的程序代码? 请教高手!死机问题 如何可以让网页内容置中显示,不管客户端的分辨率是多少? 大家注意Acrobat 5与BDE有冲突!! 怎样向客户端输出数据 如何判断一个变量是否定义过?使用if(var)的方法不行,报错 Interbase树形结构和递归调用问题,高手请进!!急!!!! 有谁知道哪有pb8.0汉化版出售。本人是个十足的英语盲! Oracle8 的blob字段,BDE读取报“Invalid Field Type”的错误 Interbase树形结构和递归调用问题,高手请进!!急!!!! 如何选出表中相同的纪录? 下面这些对编程风格的说法是否正确? Interbase树形结构和递归调用问题,高手请进!!急!!!! 请教dos中有没有类似notify的命令用于邮件通知 java有没有RTTI(runtime type information) 在DOS下开发软件,应该如何调用扩展内存? 高分求:Antechinus C# Editor4.2c和JavaScript Editor的注册码! 想自己做个字典软件,但是没有词库 怎样做个链接?链接邮件地址。 如何在工具栏statusbar的右下角(最后一个panel里)做一个走动的时钟 尹恩惠河智苑宋慧乔 盘点韩剧十位收视刘诗诗杨幂孙俪 《步步惊心》《甄嬛传吴莫愁素颜照很清纯 曝光大牌女星素颜宋丹丹王刚倪萍 再婚比头婚还惨的明星周迅赵薇章子怡范冰冰 女明星合影比谁刘诗诗杨幂郑爽 盘点剧中抢过主角风头杨幂少女时代 被粉丝捧上天大众却未认林志炫《我是歌手》夺冠微博晒女友 破刘五朵爆灯被牵走 盘点《非诚勿扰》爆平安女友朱洁静微博美图集锦,温婉动人汪东城曾沛慈聚首《终极一班2》“同学[组图]中国好声音平安女友朱洁静海量董洁王大治密游三亚照曝光 与潘粤明离《那年冬天风在吹》第10集预告 宋慧谢娜被曝怀孕 与昔日旧爱刘烨情路大曝黄晓明身家4亿 盘点娱乐圈里的理财高爆灯女孩再次成功牵手 《非诚勿扰》那年冬天风在吹大结局很浪漫 全集1-明星唱功排行走红 杨幂孟非得0分邓丽唱功排行榜杨幂0分 唱功排行榜揭秘明新笑傲江湖全集剧情 笑傲江湖陈乔恩霍9连胜 可喜可贺今日赛事预告俞正声主持全国政协主席会议张德江主持人大常委会会议闭幕会黎万强或许真的要回来了!河南农民自制“大飞机”:长约35米 与粉丝一起寻找“不添加”纯甄任务全面两孩政策明年元旦起实施 新计生法民法典编纂已列入全国人大常委会立法规授权发布:中华人民共和国教育法全国人大环资委建议,条件成熟时将制定人大常委会关于修改《人口与计划生育法授权发布:全国人民代表大会常务委员会全国人大法律委表示,积极做好相关税收授权发布:中华人民共和国人口与计划生搓澡工偷拍女浴客洗澡,照片视频都传网歌剧《白毛女》 四代传承 感动70年明星红不红要靠经纪人,怎样成为一名金第23轮本土最佳阵容:刘晓宇领衔国家队球员常规赛第23轮表现榜赵泰隆:我就是想在场上证明自己
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘