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

在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目录下。

隐藏和显示Windows的任务条-Delphi资料 隐藏桌面上的图标-Delphi资料 用DELPHI编制Windows95下的钩子函数 用Delphi的THML控件实现触摸屏的使用 用Delphi实现禁止用户关闭Window9X 用Delphi制作能够干净地删除自己的程序 用DELPHI 做一个简单的屏幕保护程序 用Enter键代替Tab键-Delphi资料 用修改文件时间的方法来加密文件-Delphi资料 用最原始的方法编制程序-Delphi资料 运用Delphi编写Windows NT中服务程序 在DELPHI编程中确定系统运行模式 在Delphi程序中调用控制面板设置功能 在DELPHI下读取与设置系统时钟 在Delphi中避免2000年问题的捷径 在Delphi中调用API函数 在Delphi中获取和修改文件的时间 在Delphi中控制扫描仪 在Delphi中实现对WIN9X应用程序使用权限的设置 在Delphi中实现对目录拷贝、删除和搬移的操作 在Delphi中使用自定义光标 在Delphi中用拼音首字符序列来实现检索功能。 在DELPHI中用线程排序 在Delphi中制作背景音乐 在Dephi中使用TStream读写数据的技巧-Delphi资料 在应用程序中跟踪MOUSE的坐标-Delphi资料 怎样建立回调函数-Delphi资料 怎样显示自定义鼠标光标(Cursor)-Delphi资料 找出消失的 Delphi 窗口 执行外部程序-Delphi资料 执行一程序并等待其结束-Delphi资料 困惑。什么工作好啊,来者有分 大哥、大姐们,快拔刀吧! 如何取得SQL SERVER2000数据库某字段的空值? 如何用split分割纵向字符串?在线等候. 关于java workshop的问题(急) 向高手请教一个问题(硬编译),至少200分相送 为什么我用request.getPathInfo()取到的结果为空? c# 版的朋友们大家好!!新手登录,多多帮助! oracle触发1器 一个好多人问过的问题,可是我这里还是不能用,请在帮下忙 发布Applet出现的错误,帮忙撒 本人在PB开发中遇到莫名其妙的问题 强烈建议成立crack专栏,同意的请跟帖。 textbox的输入问题 我的98系统在重新启动后再进入系统时屏幕上会出现一闪闪的雪花点,这是为什么呀? 请教!谁会使用这个API函数(DbiPackTable),该函数在BDE32.HLP中。 一个循环问题,急急急!! mysql -h remotehost -u root连不上对方机子? 分布式应用中的服务器端访问当地窗口的问题 打印的问题,大家请看,得到你们的思路,马上给分! 我想做一个保存图片资源的dll文件,谁有这方面的文章和代码啊? 看一下这个ServiceApp.出错信息! 有专家吗?Cache问题 那里有linux原码下栽?不全也可以? 怎么用OPENCV?(50分) winsock下载FLASH动画的错误问题 好好看看这个妞,天机不可泄漏啊,哈哈哈哈 VxD 中如何使用 sprintf 等函数?[200 分] help me !!! 急急急!!! 有关datareport的问题! 我下载了Core SDK,《windows核心编程》的示例还是编译不成功? SQL Server中定义image类型的问题? 鼠标拖拽效果 简单的问题?高分相送,UP者有分。。。。。。。。 到底到哪里找weblogic 7的破解文件啊? 请教向win2000 server申请证书的问题 我有了一只小猫,好可爱啊!为它散分!TMD,只有最后125分了! query1.CanModify:= true;???? 我下载了Core SDK,《windows核心编程》的示例还是编译不成功? 现急需bmp文件转换成jpg文件的java源代码,请高手们帮帮忙,分数可再加。 大家有没有做过宏的,我写了一个宏却有下面的提示. 。。。如何对所访问的网站的返回结果进行处理。。。 哈哈哈,托普股票昨天狂跌!!!!!!! 请进! ASPX 里如何获得连接数据库的速度 …… 如何解决win98不登录网络也可以访问win2000共享目录的问题? 请问treeview控件如何使选定的节点在完成一次操作后任选定及如何使选定的节点在失去焦点后显示颜色为亮蓝色 DCOM多线程问题!Help 請問在ASP中該如何實現VB中MSFG控件的功能 各位大虾,如何编写一个JavaBean来调用一个已有的ActiveX控件? 求Tomcat下的Web.xml的中文说明档 对于中国的牛,我有特别的尊敬感情. 留给我印象最深的,要算一回在田垄上的“相遇”. 一群朋友郊游,我领头在狭窄的阡陌上走,怎料迎面来了几只耕牛,狭道容不下人和牛,终有一方要让路, 作者为什么写"对于中国的牛,我有特别尊敬的感情"?对于中国的牛,我有特别尊敬的感情.留给我印象最深的,要算一回在田垄上的“相遇”.一群朋友郊游,我领头在狭窄的阡陌上走,怎料迎面来了 玻璃钢和树脂是一种材料吗 环形磁铁的磁感线和南北极如何分布 如何理解科技人员和经营管理人员在社会生产和价值创造中的作用? 什么类型的树脂做玻璃钢格栅最好 环型磁铁的磁感线分布 技术、管理与价值创造的关系是什么? 一个金戒指质量为五克,体积为0.27立方厘米,他是否是纯金的 环形磁铁的磁感线是怎样的?看了很多百度知道里的问答、总是觉得还是不懂、环形磁铁的磁感线是不是就是类似于地球的磁感线? 欧洲国家,哪里最好?如果去欧洲,哪里是最好的选择?我在捷克. 在三枚戒指中,只有一枚是纯金的,而其他两枚则是锌镀金和铜制的,鉴别的方法是 A、称得质量最大的是纯金A、称得质量最大的是纯金的B、可以观察金属的光泽C、测三者的密度,密度最大的是 简述决策在管理中的地位与作用 欧洲国家里和中国关系最好的是法国吗?好像法国是欧洲国家里最早和中国建交的,这几天萨科奇来华咱们还说中法友谊渊源流长之类的,法国与中国的关系和欧洲其他国家有什么区别?是和中国 勾三搭四是什么动物 中国的牛 这种比较的写法我们还在小学课文《》中体会过 欧洲哪个国家生活最好 十二生肖里什么动物勾三搭四 巴基斯坦小学课文写中国的具体内容是什么?我想看看他们国家是怎么写的. 中国的牛文章中阡陌的意思还有恩惠要联系上下文理解的哈!还有一个字认为不到踟什么是一个足字旁一个著名的著 英语作文吸烟 如何理解实践在认识中的决定作用 反馈调控策略是什么意思 粉末涂料振动筛的结构图谁能发给我? 计划在管理中的地位与作用字数达到一千字就行的论文! 管理的计划职能的作用是什么? 有一枚戒指体积0.24cm3,用天平称质量为4.2g,这只戒指是否是纯金制成的 如何选择一款适合自己的枕头?可以买零听品牌的恒温太空记忆棉慢回弹舒眠护颈枕头吗 粗苯加氢设计单位粗苯加氢 英语动词的单复数选择问题The construction of the two new railway lines 后面再加一个动词的话,这个动词应该用单数还是复试形式呢?也就是说所加动词的单复数形式是随 of 前面的名词,还是随 of 后面 太空零压力记忆枕头加长护颈枕慢回弹颈哪里有 粗苯加氢 哪个欧洲国家最好 请写出氯气与碘反应的化学方程式.另外,是HIO4吗? 氢气和氯气及溴发生反应,哪个放热多 欧洲最强的国家是哪个? 氯气和碘反应 求介绍分析中国文化的文章吗? 欧洲哪个国家好 氯气和碘的反应? 中国牛这篇文章是赞扬谁的,是赞扬中国还是牛啊! 对于中国的牛. "勾三搭四"的准确意思!如题 下列关于NaNO2、Na2O2、SO2、O2等四种物质的组成的叙述中正确的是都含有2个氧原子对吗?仔细看题 中国的牛 1.中国的牛象征什么?2.文中能与文章结尾遥相呼应的是那一句? 他说"你还勾三搭四了"是什么意思有次有个见了两面的人问我要电话,后来我和他说,(我在追他)他说你还勾三搭四了,这代表他对我有一点感觉不?有次他说要我陪他去吃东西,但是晚了就不去了, 下列物质误食后,不会引起中毒的是?(1)BaSO4(2)NaNO2(3)CH3OH(4)P4 关于中国航母相关文章? 喝了汽水,常常会打隔,说明气体的溶解能力与什么有关?..另加.水变成水蒸气是因为?A水分子变大b.水分子的组成变了C.水分子不运动D.水分子之间空隙大了 含Na离子的物质(除NaCl为中性外)都是碱性的吗?比如说NaNO2、Na2CO3 经常吃微波炉做的食物有什么坏处? summer holiday 文章中第一段有什么作用 读书伴我成长 500字作文 Happy summer holiday这个词什么意思? 电压和电流线圈产生涡流的原理,我想知道这个,要看那种书啊 汽水中的气体通过什么方法溶解在水中 什么叫做勾三搭四?别人说什么勾三搭四, 文章第一段有何作用 作文 我长大了(男生急用,500字以上)2月13日就要交,2L,我要的是男的啊!不是女的! 做玻璃钢一般用什么型号树脂最好?本人想请教师傅们,玻璃钢一般用什么型号树脂最好,我现在用的是218不饱和树脂,请问它可以做玻璃钢用树脂吗?我听说一般都用191,这两种树脂那种最好,价格
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘