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

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

即将于下周召开的微软Build 2014六个愿望清单 【独家专访】腾讯陈磊:你不知道腾讯对开源有多爱 地下数据交易网站Rescator被黑,疑似Target报复 Spark独门秘籍:打造结构一体化、功能多元化的高效数据流水线 【走进支付宝】重磅嘉宾!历届“走进企业”回顾 【OSTC讲师专访】腾讯TDW项目:开源的分布式数据仓库 ID爆发的物联网时代,我们该如何管理手中的数百个账户 取代Google Maps?苹果大幅优化Apple Maps用户体验 中交兴路系统架构师杨晓明:Hadoop+Storm+ HBase…,打造交通行业创新型服务 雨果·巴拉的第二春:我与小米的那些事儿 为什么Android Wear能统领智能手表领域? LinkedIn缘何抛弃Ruby,转投NodeJS怀抱 【OSTC讲师专访】九秒社团李明:开源对游戏产业的渗透与帮助 IBM 2014中国论坛:挖掘新互联网时代下“智慧企业”的发展之路 Facebook工程部副总裁Cory Ondrejka谈企业在早期所遇到的管理瓶颈 小团队管理工具选择:不需要大而全 《近匠》聚合CEO左磊:基础数据免费,API开放 IDC:HTML5与原生应用之争还将长存 不甘称臣,Google誓要击败Amazon 【OSTC讲师专访】腾讯追风(QcloudMna):开源移动加速SDK Google Go:一门为云而生的编程语言 3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 尹绪森:打开圈子拥抱变化,谈Spark玩家的自我修养 从Healthbook看苹果将如何颠覆移动医疗和健身追踪 新手,键值问题 这样的问题没人会????? 大家帮忙看个程序 ACCESS数据库的小问题。 怎样使自己的问题成为热点问题的绝招! 关于c++builder中scanline的应用 跨数据库查询,请教各位高手! 这样的问题也没人会????????????????? 如何使用QuickRep制作简单报表?不牵涉任何DataSet的 关于Transaction的问题 请问 ListCtrl Item里的 Checkbox 被点击时对应的消息是什么? 100分~~100分~~高分求购。。。我也‘倾家荡产求购优秀系统分析案例’(paste from yyzh)。。。100分~~ 全中文的用Rose做的实际项目的UML模型! 救命!!我的机器不能下载东西了,怎么回事?? 求教邮件编程问题,邮件客户端如何实现“在服务器端保留备份的功能“? ciscoworks 各位大哥大虾,VC下如何用ADO连SQL SERVER?(急) ShellExecute和CreateProcess有什么区别? 关于海量数据、最有效率的排序、硬盘缓冲与映射、专业数据库的讨论 如何用VB编启动是可以带参数的程序呢?(例如:我自定义了一种文件,双击用我的程序打开,程序自动会打开这个文档 昨天我过生日,今天分蛋糕给大家 请问哪有《java图形设计2Swing篇》可以下? 我要用一个数据库去实时访问另一个据库,我该怎么办 URLghj1976@csdn.net----别吓我,有请您老人家! 谁给我介绍一下sql server7.0教材的比较好的下载网站,我给他20分。 我都急死了,到搜索引擎里搜到的好几个站点都不能用,到底哪儿可以当到3DMAX? 谁有写的比较好的邮件收发程序? 一个微软证书的私钥问题 微软证书的私钥问题 求助,简单问题 男人最快乐的十个瞬间! solaris下装oracle8.1.6遇到jre环境问题 怎抹加分?我准备给别人加40分,可我最多只能加20,请问另外20分怎末加分,为此我可能已得罪了一些人了。 请教下载的问题 如何在运行时动态修改Quick Report的打印机设置? 怎样做一个接受拽拖的LISTBOS(例如,把资源管理器里的文件拖到上面,就自动增加一项 ,就是拖的文件名) 怎样才能隐藏在ctrl+atl+del中进程列表中的项目啊 用C写DLL 请问:airhorse(编程至尊宝),infopower3000的注册码可以用于商业目的吗? 结构化异常处理 linux下如何配置内置Mondem? red hat linux7.0下安装oracle8.1.6遇到问题 我是菜鸟,问一个关于类的问题 问题:TWebbrower中,InnerHtml和OuterHtml以及InnerText和OuterText之间的区别 (加急)我要傻了,快救命啊!高分求救!!(回答正确者尽管开口要分!) ==============VC中怎样调试控制台程序=============? 再问:MS SQL6.5 的.DAT文件怎么恢复,请高手帮忙,(100分绝对对线) 白桦林 我需要自定义一个鼠标按下的事件,可我不知道该去那个参数?有人能告诉我吗? 有谁有比较好的javacript教学方面的电子文本? 两个关于数据库的问题(上次写的不太清楚),我的分快用完了,只能随便给点意思意思了! 若代数式根号(2-a)的平方+根号(a-4)的平方的值是常数2则a的取值范围 已知a为实数,求代数式根号a+1减根号4-4a加根号-a²的值 化简二次根式 (根号b/a-根号a/b)/(根号a-根号b) 无论x取任何实数,代数式根号x的平方减6x加m都有意义,则m的取值范围是多少? 已知x=2-根号3,y=2+根号3,求代数式x平方+y平方的值 我在百度查到了你写的这道题的答案.x+y=4、xy=(2-√3)×(2+√3)=2²-(√3)²=1请问这个步骤怎么来的 已知xy大于0,二次根式x根号负y除以x平方=? 已知x=2+根号3,y=2-根号3,求代数式[(x+y):(x-y)-(x-y):(x+y)]*(1:x²)-(1:y²) 的值代数式图片 已知x=二分之一(根号7+根号5),y=二分之一(根号7-根号5),求X的平方-XY+Y的平方的值 当x=7时,求代数式根号x+5+根号x-4-根号4x-1的值 当x=根号2007-1时,求代数式x²+2x+3 已知y=二分之一+根号下2x-1+根号下1-2x,求x的平方+xy+y的平方的值 当x=( )时0,代数式根号(4x+5)有最小的值,其最小值是( ). 当X=根号5-1时候求代数式X²+2x-5的值 已知实数xy满足|x-根号2|+根号(y+根号2/2)=0,求代数式x^100·y^101的值 已知x=1+根号5,求代数式x3-2x2-4x-5的值 已知a-b=3,a+b=根号7.求代数式a²+b²及ab的值 【内有图片】 已知x=根号2+1,y=根号2-1,求代数式x-根号xy分之x-2倍根号xy+y的值.不是很清晰哈,破手机. 若根号下x加1乘2减x等于根号下x加1乘根号下2减x成立化简x加3的绝对值加根号下x*x减4x加4等于 当x=4-根号3时代数式x²-8x+19的值为 已知实数x,y满足关系式│x+y-3│+根号(xy-6)=0,求代数式(x+2y)/y-x的值 化简:根号6减根号2的绝对值加根号2减1的绝对值减3减根号6的绝对值. 当x=(1+根号2011)/2,求代数式4x^3-2014x-2010的值 若实数xy满足x^2+6x+根号(x-y+1)+9=0 求代数式((根号1/x-y)+(根号1/x+y))÷x/x^2-y^2 化简:根号2减去根号5的绝对值加上根号5减2的绝对值加上根号3减根号2的绝对值 已知x∧2-4x+1=0,则代数式根号下x+1/x+3的值为? xy是实数,且y=根号x-4+根号4-x+1/3,求代数式9y*2-6y+1的值. 已知0小于x小于1,化简根号(x减x分之1)的平方加4减根号(x加x分之1)的平方减4 当X=根号3-1时 求代数式X²+2X-3的值 设x=根号三减2分之一,y=根号三加二分之一,求代数式x+y分之x2+xy+y的值好的 设x=1/√3-2,y=1/√3+2 求代数式x2+xy+y2/x+y看的懂吗 已知X,Y都是实数,且满足Y<根号X-1+根号1-X+二分之一,化简:y-1分之1*根号(1-Y)平方 已知a=根号3+1,b=根号3-1求代数式a²b-ab²的值 先化简在求值;(x=2)平方—(2x—1)(2X—1)+4x(x—1),其中x=—2的根号下 若a 已知:a=3倍的根号2+2倍的根号3,b=3倍的根号2-2倍的根号3,求代数式a²b-ab²的值. 已知1 化简根号[-(x+1)]的平方那个平方是加在x+1上面的 已知x-1=根号3,求代数式(x+1)²-4(x+1)+4的值 已知xy小于0 ,则根号x平方y 化简后 如果xA.4+x B.-x C.-4-x D.x 我知道选C, 已知a=-根号7+3分之2,求代数式a³+5a²-4a-6的值 已知0 (x减2分之x加2 减x平方减4x加4分之x减4)除以x平方加x 分之x平方减1 其中x=2+根号2先化简,再求值 已知x-2=-根号3,求代数式(x+1)²-6(x+1)+9的值. 先化简再求值:(3x+2)(3x-2)-4x(x+1)-(2x-1)的平方,其中x=根号3 已知x=3-2y,求3根号x-2y除以根号4x平方-16y平方 已知x=根号5+根号2,y=根号5-根号2,求代数式x²-xy+y²的值 根号((X+根号2)平方+1/4)减根号((X-根号2)平方+1/4)=2,求X根号((X+5)平方+Y平方)+根号((X-5)平方+Y平方)=10,求X 9减4倍根号5的算术平方根是多少最好有过程! 若a,b分别表示6减根号5的整数部分和小数部分,求代数式2ab减b的平方的差要求有过程. 已知x=根号2减1分之根号2加1,y=根号3加1分之根号3减1,求x的平方减y的平方 当x的算术平方根=2,则x2=16,三次根号负4x=? 已知x,y分别为8-根号11的整数部分和小数部分,求2xy-y的平方的值 已知x=2减根号3分之1,y=2加根号3分之一,求3x平方+5xy+3y平方 下列二次根式中,化简后被开方数与根号2的被开方数相同的是A根号0.2B根号2的平方C根号22D根号1/2A.根号0.2 B.根号2的平方 C.根号22 D.根号1/2为什么? 已知y=根号(x-8)+根号(8-x)+18,求代数式[(x+y)/(根号x+根号y)]-2xy/(x根号y-y根号x)的值 已知y=x+2分之根号x的平方减4加根号4减x的平方加2012成立,求x的平方加y减3的值 合并下列根式中的同类二次根式:1/2m乘以根号4m加上6m乘以根号9分之m减去2m的平方乘以根号m分之一明天1:00之前一定要,好的会追加分的 已知Y=根号X-8+根号8-X在加18,求代数式X-Y/根号X-根号y再减去2xy/x倍根号y-y倍的根号x的值. 若a为实数,求代数式√a+2-√8-4a+根号下负a的2次的值 已知XY
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn