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

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

Google的“机器人情结”:两次合计36亿美元的人工智能收购 挑战谷歌、抢占新兴市场,百度进军泰国、巴西和埃及市场 《近匠》第8期:Unity——不再仅仅是游戏引擎 Colours:移动应用的开源“美颜相机” 微信红包活动:用户疯狂中的腾讯“阴谋” 预测2014年最热门的IT职位及年薪 智能手机有隐私?Facebook可阅读Android用户的短信内容 苹果2014年Q1财报:iPhone、iPad 销量创纪录 3D打印:鞋垫也玩私人订制 与Google Glass抗衡,三星将推Galaxy Glass 进军移动?任天堂欲推iOS、Android版超级玛丽 回顾2013:云计算的夏天 微软最终加入OCP阵营,开源其云服务器设计 Docker:集装箱式“运输”在软件上的实现 《近匠》第09期:ShareSDK——专注社交分享工具 苹果车载iOS系统iOS in the Car界面被曝光 支撑过万亿音乐事件的数据分析系统 Facebook运维内幕曝光:一人管理2万台服务器 《近匠》第10期:友盟——开发服务平台化 LinkedIn耗资1.2亿收购数据驱动招聘服务公司Bright 谷歌推视频会议硬件产品Chromebox 基于Chrome OS 文件上传组件导致Apache DoS安全漏洞 EA,你是来拉仇恨的吗? Beep:前Google员工打造的流媒体音乐控制器 有利于开发App的5款天气预测API 七问微软新CEO,你准备好了吗? Hadoop虽然强大,但不是万能的 Flappy Bird:萌贱游戏日进斗金的烦恼 IT技术支持:索契冬奥会背后的无名英雄 简单10招,让你的云计算事业锦上添花 微软、谷歌及苹果从哪赚钱? 请教各位:如何对zf='dd'转换成十六进制? 请教: 二级域名name.***.com是怎么实现的? vc中使用string类型的问题 肮脏的九运会,肮脏的广州!建议以后取消全运会!! 我做了一个OCX控件,里面有个属性SName,我现在想在属性窗口里改了它的值,马上可以在控件上改变,请教各位! 为什么我的USB接口键盘在用软盘启动后的DOS状态下不响应? JSP,薪水有多少? delphi中怎样调用package? ado 的问题 图片从数据能显示,图片名称不能显示? 请问unix下有没有类似于windows下的DLL的二进制代码存储文件机制?(当然不是javaBean) 关于语音控件CTTS1.0? 请教各位:问如何对变量zz='02'转换成16进制? flash 5。0哪里有下载 在vc中调用用vb写的com出错,为什么? 关于多态性的理解,对吗? 如何知道1个类是不是存在? ??请教:我的程序 help!help! 如何对程序执行动作放缓慢! 很小很小的问题!! 棘手问题??急急!!! 各位懂软件测试的朋友,请介绍一些资料给我,非常感谢! 菜鸟问个调试问题,别见笑! 请介绍一下学数据库应学什么开发工具更好些,除了sql语言? 请教一个关于TextArea区域中数据显示的问题 高分求以二进制方式打开文件 哪里能找到dialogic卡的VN协议? 求解:BC++3.1 or high编程在DOS下连接interbase server 高手快进!!!一个DataReport报表的异步操作问题( MYSQL的帮助文档哪里有下载?谢谢 求,谁有zip unzip的源代码 菜鸟的问题,送分来了! 有谁知道什么是SDD吗?请指教!!!!别吝惜呀!!^o^ 简单的右键弹出菜单问题…… 我想编一个pop3服务器,适用于windows iis,给点提示吧 编译SERVLET时老出现"...包 javax.servlet 不存在..." ? 请教关于 98中 Personal web Server的问题 辽宁4:0狂胜广东,爽丫!SB广东解说员居然说中国足球没戏了~~~~~~~~~~ 用APPLET做一个上传的东西可以吗???? "我的问题"栏中,只剩下未解决的了,已给分的为何都不见了? 在CSDN和大富翁都没人会答的简单OLE问题,唉! 我是shijie819有问题?? 各位高人,看看代码,不能输入汉字只能输入英文,问题在那里? 如何将编好的n个模块连接到一个工程 请教!关于listbox的列属性? Applet为什么能在JBuiler5中调试,而不能在浏览器中显示 SOS!谁有语音卡编程的经验和资料,恳请指教!给分的! 谁有用VC++中ODBC API 编写数据库的例子? sql server 有沒有邏輯型字段!!! 小学二年级春季田径运动会的作文(200字以上)4乘100米接力赛 跑步 投球 作文原来我没懂600字 我眼中的高中生活(1000字作文) 我是这样长大的作文关于妈妈的爱我是在妈妈的关怀中长大的 作文 原来我没懂要写我没懂青春的含义,真实情感 有木有红色书籍读后感300字的? 我是这样长大的,作文开头怎么写? 读灵魂为题作文800字我急用啊…不要网上有重复的我要的作文题目是读灵魂! 作文我原来没懂600百字 帮忙写一个英语作文(很简单)字数50-60提示:这是我们的校图书馆.你可以上网查资料、做功课、读书.但是你不可以大声喧哗.你不可以在书上乱写.你不可以把书带回家. 求原创作文一篇:以“如果”为话题的800字以上作文.一定要自己的原创。我看到这两篇都不是自己的原创。无论有多短我都能接受~ 以快乐的一天为主题,写一篇英语文章写一篇主题为快乐的一天,50词以上 很简单的英语作文只要是关于节日就行! 写一篇关于江南美景的作文里面要用上古诗原句500字以上,可以写莲花什么的.什么啊,要文章要原创的. 关于《快乐的一天》的英文短文 急需关于校运动会100字的作文急 高中生的自我介绍 800字说说自己的兴趣爱好,性格特点,喜欢怎样的人,爱看怎样的书及电视电影,对未来的憧憬等等 一篇(现在进行时)英文作文(写下课) 关于运动会的作文50字-100字鼓励运动员的 原来我没懂 作文急 关于春节期间快乐的一天的英语小短文(跪求)关于春节期间快乐的一天的英语小短文.大家有什么就发上来啊!拜托了! 求1200字作文 以小见大 以功名与名声为话题作文 800字..像个高中生写的就行以下列的文字写作文,人一般都很重视自己的身后之名,这常常体现概括一个人一生伟业的墓志铭上,但是,有些伟大人物的墓志铭写的 革命书籍读后感什么书都可以,一定要是革命书籍啊! 以小见大的文章生活中的一些小事情而反映出一个大道理.(初一作文.) 原来我没懂,作文 红色革命书籍读后感关于红色革命的书籍作者及内容及读后感,内容简略一点读后感多一点,急 急 要400字的作文 是以小见大的作文我只要400字多了不给赏金 如果我满意我会给赏金 关于幸福的话题作文800字 求1篇1000字关于难受的话题作文 帮我写篇英语作文、简单的很.急用!随着信息技术的快速发展,网络已经成了人们生活中不可或缺的组成部分,但不容忽视的是,网络污染也随之开始泛滥起来.请以“cyber pollution”为题写一篇100 作文 “原来我没懂 ”600字 爱国书籍读后感500字,急!1 假定你是spring有限公司销售经理李华,给客户mr.wang写一份信.日期.09.3.18.材料价格上涨.产品价值上调.原定货物维持原价.希望以后能继续合作.表示歉意! 狼图腾读后感800字 麻烦帮我找一本爱国书籍的读后感,400-500字左右就行了,快《红岩》不要! 阅读材料,自选角度,自拟问题,写一篇作文,不少于500据说爱因斯坦来到普林顿高级研究所的第一天,管理人员问他需要什么用具,他会他说:“我看,一张桌子或台子,一把椅子和一些纸张,钢笔就 小学6年级水平狼图腾读后感500字别写太好也别写太烂 有关爱国的书.顺便也写一下读后感500字. 原来我没懂 作文600字 狼图腾之小狼小狼500字读后感 这是幸福的作文怎么写?急啊啊啊啊啊啊啊啊~~~~~~~! 求一篇写荷花的作文 可以给这篇文章取什么名字? 给写冬天的作文取一个什么样的名字 求两篇英语作文,请用最简单的英文单词写希望加为好友.没法同时给两人分数,喜欢你提供的第一篇. (急)读下面的材料,自选角度,写一篇文章.材料:杨柳自有杨柳的洒脱,青松自有青松的壮美,生于世界上,在于宇宙间,同顶炎炎烈日,共沐皎皎月辉,每个生命都闪耀着独特的光辉,展示着无穷的 评价下这篇文章顺便取个名字吧谢谢! 能给我弄个简单的英语作文么?100个单词就行 《狼图腾》的读后感,600字左右 谁能回答一下 着急 我想取一个比较富有哲理的昵称名字, 请你给我15篇简单英语作文 不超过30个单词 带翻译的 急用 《狼图腾》读后感500字 高中1000字作文 生活就是舞台1000字高中作文 话题:生活就是舞台 作文 森林里的运动会200字三年级快 狼图腾读后感500字..偶要狼图腾读后感500字的,别写得大道理一大堆,偶是初一的,水平还可以,别写太好,也别太烂,就这样.. 高中作文《我的暑假生活》1000字 求一篇写名人英语小作文.抄的不要这篇小作文是在英语课上演讲的。 狼图腾1200字读后感!可以东拉西扯.要围绕着狼的精神,狼给人的教导等方面写.主要突出狼的精神! 感恩生活 1000字高中作文!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn