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

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

火火火火火!看HomeKit如何改变物联网和智能家居? MDCC应用与工具关键词:平台、社交、垂直、解决方案 Leap Motion正式入华 将发布第二代软件SDK 120万操作/秒Redis Cloud 集群单一服务器非基准测试程序 2014微信开发者大会顺利结束 TOP10优秀微信开发商名单公布 【最佳实践】通过DevOps确保可靠和有效的信息安全 2048 Hello World:跨平台快速应用开发Python框架Kivy Forrester:关于私有云的10个事实 2014年8月操作系统份额:Win 8.x大涨,Linux继续下跌 0代码、不编程—交互式网页设计工具VXPLO 揭秘Instagram Hyperlapse背后的技术 【CTO俱乐部在线教育研讨会】用互联网技术深入创新教育产品 降低门槛!Hybrid应用开发框架LigerMobile 下一代IT革命:微服务器和雾计算 使用Mongo Connector和Elasticsearch实现模糊匹配 时隔8个月,物联网联盟AllSeen如今怎样? 《近匠》简网:开发零门槛 快速建原生App MDCC免费展位申请超预期 大会内容初曝光 在服务器与交换机定制之后,谷歌着手量子计算机CPU设计 电信天翼开放平台鲍占斌:优质能力 分成比例高 艾格拉斯副总裁王晓波:手游定价如何设计 Xcode 6 Beta 7发布:语法定、内库改,Swift何时完善? 干货来袭:由22个联邦机构分享的6482个数据集 Phablet出货量今年将超移动PC,明年再超平板 如何提高Web服务端并发效率的异步编程技术? 改改改!让应用通过审核出人头地的10个方法 正益无线CEO王国春:AppCan如何获得50万开发者青睐 在收购Xtreme Labs之后,Pivotal推出PaaS移动服务 .NET开发者必备的11款免费工具 .NET开发不可错过的25款高效工具 Docker最佳实践!尽在2014 Container技术大会 用Borland C++ Builder 开发企业管理系统 又出现错误了????? 求助!!如何在StringGrid中显示ADOconnection中的数据?? 为了运行XML,服务器究竟要怎么样才行? directx屏幕捕获,为什么我的这段代码不行 小问题,大侠帮忙,小弟不胜感激!!!!! 我想使用一个字段来存储2万字左右的文章应该用什么类型(text不够用的)? 向非窗口类的对象发送消息呢? 如何重新检索 救急:Win me开始菜单及Taskbar的小图标都变花了,如何解决?up有分 ############狂送分,附带一个小问题########### 在bc中怎样创建资源文件?? 请高手进入,急!在线等待 生活有你 更新后台數據,用試圖就可以,用代碼就不行? ★★★CFormView的大小,高手没必要进,低手就可以解决了! 不超过十行,但.....(C) 打到雍亲王 "准女朋友的胸太平了,我该如何取舍? " 准备结贴了,要顶的赶快顶呀,去晚了就没机会了 为什么我从数据采集仪采集到的数据是乱码? 请教:动态的下拉菜单怎样做?在线等待,答对就给分! 有谁知道用vb如何把bmp的文件转换为jpg格式?? sql server2000是不是不能在winxp 专业版下安装?? 请问大家 wait函数的使用问题(给100) 关于wait函数的使用问题(给100) 如何在xp下能够删除带子目录的文件夹? [求助]关于考试座位号随机分配问题! 无奈的我等你的帮助! 在delphi中如何建立一个doc文件? 有谁可以帮帮忙(在线等待) 请问大家如何防止DEDE的,我发现许多软件没有进行压缩也无法进行DEDE反编译,通常只能进行到一半 现代制造业企业管理系统的开发 (C++ builder) 线程设计,帮帮忙!!! 关于flash中的actionscript 如何做自动评分的考试系统?给点建议或意见! 告急!!!主从表的问题,怎样修改从表时,让主表的数据跟着变化? 刚刚在新闻组看到的东西, 让大家乐乐(转贴) 关于ASP.NET的讨论,欢迎大家指正. 再发:请教在Rave 报表中如何在每一页上都显示打印表头 关于视图的问题!!!很急,各位大哥帮帮忙!! CrystalReports(水晶报表)的版权问题 请看此贴!帮忙阿! 菜鸟问题,请问怎么让 点主from上的一个按钮就弹出另一个编好的窗体 请问能不能将网页页面内容保存为word文档输出?? 碰上大麻烦了,哥们们救救我吧!~ 请看此帖,帮忙啊! 中文打包问题 谁可以给我一个java的例子读excel的*.cvs文件,thanks 请看此帖,帮忙啊! 想请叫一个关于网站视频的问题 美式英语在线翻译网站?我要的是翻译出来的句子意思和外国人说出来的句子意思差不多. 双子座流星雨在山东青岛能看到我,我说的是肉眼 搜狗拼音输入法收的词汇有多少?比《现代汉语词典》多多少? 英语说个句子,如果是错句,外国人能理解吗? 将要到来的双子座流星雨用肉眼能看到吗? 现代汉语词典中某些词条中有不止一种的解释,这个排序是不是有什么意义?比如说在“自由”中,有三条解释:①在法律规定的范围内,随自己意志活动的权利;②哲学上把人认识了事物发展的 改错改句子中的错误1.I went to fish on Sunday.()2.They leaved HangZhou last week.()3.He often flys a kite in spring ()4.Look!A car is runing to us.()5.She has supper at 6 yesterday.() 有没有例如梅花香自苦寒来的这样的句子 双子座流星雨在厦门同安用肉眼可以看到吗 单句改错.每句存在一处错误,请按改错格式改1 The scientist devoted his spare time todo experime2 The teacher told the students not be late3 English is an useful tool4 Why not to follw his advice?5 What a fun it is to swim in the lake! 英语翻译看啊,我目睹在那里的父亲.看啊,我目睹母亲.也目睹我的兄弟姐妹.看啊,我目睹祖先的行列.看啊,他们都向我呼唤,他们叫我去烈士英雄埋骨之地,在英灵殿中,勇士的精神,将永远.长存不 请问今天的双子座流星雨在芜湖用肉眼能看到吗 请改错短句语法错误Since smoking is harmful to one's own and other people as well,the government is making active use of law,forbiding people to smoke in public.A ban on smoking in public places will be publish at January,2011.A controversial 2009年12月14日在郑州能看到双子座流星雨吗? 帮忙找一下以下特殊符号 电动汽车为什么不用两个电池?A电池驱动汽车行驶.在四个车轮上各加装一个发电机汽车启动行驶中A电池首先参与提供电能驱动车轮转动.当车速达到50公里每小时时四个安装在车轮轴上的发电 昨天的双子座流星雨谁看到了?(2009年12月13号)555~昨天回来上班了,看不到,今天想回家看的,可是又多云,严重打击我~我是广东的,有谁看到了?请说一下地点和时间~谢 根据提示写出含有手的成语形容凶狠 形容顺利 形容高明 形容冷漠 形容专横 暑假里的一件有意义的事. 3句英语,请帮我看看有无差错,①reasonable life plan can (to) lead us try to seek ideal method of life,to enjoy good life②i don't think the success only relate with intelligence,other same good quality can help us to success yet③thi 我在北京周边,今天晚上可以肉眼看到双子座流星雨吗? 怎么加YY好友号啊 他们说我听不懂 杉科包括 如何提高写作能力和语文水平? 有意义的活动,最好是家务 水杉 或者 高大的杉类植物 可以在山东生长济南生长吗 语数英物.江苏人民出版社出版. 暑假里一件有意义的事可以写些什么,新一些 英语怎样题高怎样将英语由110提升至120 请语文好的进来下吧 ,我理解能力太差“不知道是人先不对劲才变成这样,还是因为变成这样人才不对劲”这句话是什么意思啊?你们在说什么、。 支原体、衣原体检查前要注意什么由于前段时间咽喉发炎服用了几天的抗生素(加替沙星和罗红霉素),请问如果做支原体和衣原体的检查前需要停药多长时间才能保证结果无误? 西部高原地区表现出明显的什么特征 生仔多的动物是什么生肖 询问支原体衣原体检查注意事项 患者性别:男 患者年龄:31 我前段时间有不洁性生活,尿道口红肿,10月1日开始吃了6天的左克和克拉霉素和14天的闭癃舒片,15号停药.过7天后做了支原体衣原体检 统万城遗址其西北属什么高原,其东南地区的地形具有什么的特点 什么动物生仔 不需要交配 想去北欧挪威旅游呢,可是不会挪威语,又不想跟团,那里英语通用吗? cl千足金 10.90g金条在移动公司充话费抽奖中了价值2990的'cl千足金 10.90g金虎献瑞金条',现在金价370,10.9克也该价值4000了吧,怎么写价值2990呢,还交了600的个人所得税,但是移动那么大的公 穿山甲动物生蛋还是生仔的 最近有什么好听的外文歌,不一定是英语的,其他语言也可以最好是慢歌 ,不要日韩歌曲, 我在读初三,现在做物理数学大题的时候感觉会做,但是写过程就会写得很乱,甚至会因此而做错,为什么?我在读初三,现在做物理数学大题的时候感觉会做,但是写过程就会写得很乱,甚至会因此 第四题写的对吗?还有第五题怎么写? 海底生物的异常行为 小红把一个线绳对折一次从中间剪开就成了3条线绳,如果把这根线绳对折三次再从中间剪开就成了( )A 5条B 9条C 17条D 33条 这个C语言程序题的答案就是红笔所写,为什么X是2? 世界上的每一种生物都是非常独特的,出现这一现象的本质原因是A物种多样性 B生态多样性C遗传多样性 D环境多样性 为什么端午节要带五线绳?,五线绳的来历是什么? 第三题就是红笔的那道题 求解答 钢琴谱上的rit. 线绳能导电吗 就是红笔写答案“10”的那道题 这些口琴曲谱的符号是什么意思啊?(有图) 那个“rit”和那个弧线还有后面那个是什么意思 该怎这些口琴曲谱的符号是什么意思啊?(有图) 那个“rit”和那个弧线还有后面那个是什么意 包身工一课中"让她扎一两根油线绳吧!"中的"油线绳"是什么意思? 答案是设用电器电阻为R,然后就是红笔写的步骤,再接下去的步骤就是两条输电线的总电阻是R/2,为什么啊?这个R为什么和前面用电器的R一样啊?然后它答案里就得出P=((U1/3)∧2)/(R/2)=2 什么是人才理念?意思不懂请回答 大戟科植物特征 脑筋急转弯大全及答案水的化学方程式怎么写 函数y=kx+b在(-无穷,+无穷)上是增函数,k的范围. 五加科植物中常用作垂直绿化的有哪些 泉州考题 仿照《现代汉语词典》词语注释的体例,编写两个常用的方言词条 小贝携全家看比赛 父爱爆棚吞小七胖手星巴克星巴克创始人回应“在中国高定价专家:中国已有5大类17种转基因生物芝加哥农产品期价24日全线下挫美国总统呼吁年内通过移民改革法案美国13岁少年持玩具AK-47 遭两印度少女回家途中遭轮奸 事后遭歹徒焚美国情报机构被爆监听35名国际政要电美遭盟友“愤怒围城” 昔日帝国实力大美媒称土购中国导弹或是把特洛伊木马塞法国之后是德国 媒体调侃下一个愤怒盟李雪主成为朝第一夫人 传因长得像金正叙政府军占领大马士革郊区重镇默克尔私人手机可能遭监听 德媒怒称最菲催促尽早完成南海仲裁 妄言中国主权给新加坡“送礼”香港动心金正恩成大马高校荣誉博士 为表彰其教美国务卿说政府关门损害美国际声誉手机疑遭美监听 默克尔怒了中国保姆在美国年薪10万美元 保险假阿拉法特死因有新说 排除钋中毒埃利亚斯向埃尔克森看齐财务公司最后拼图到位化妆品公司卖头猪至少亏200元 今年行情“天知南京威斯康墙纸销售中心正禾食品(全国优秀经销商)南京华润公司顺明机电你的康复是我们最大的幸福江宁二类汽修厂冬季宝宝别做红斑儿南京汉锐肯机电官员为骗子机构站台要问责沃尔飞跃吉祥物当选扣篮王南京童福记餐饮管理有限公司林大二食堂3楼江苏意丰德行装饰志衡物业武汉一老人每天和iPAD说话 只为有南京天泰建设
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘