📄 001.htm

📁 Delphi书籍--Delphi网上教程
💻 HTM
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--API应用-->在DELPHI2．0、3.0下读取系统时钟</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--API应用 在DELPHI2．0、3.0下读取系统时钟">
<META NAME="description" CONTENT=" - DELPHI专题--API应用 - 在DELPHI2．0、3.0下读取系统时钟">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index2.html">返回</a>

<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>

<TD class="tt2" bgcolor="#F5F8F8" width="83%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">在DELPHI2．0、3.0下读取系统时钟</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p>　既然Delphi没有提供如此功能，但Delphi提供了调用WindowsAPI的接口。所以我们可以调用WindowsAPI函数来实现这一功能。具体方法如下：<br>
procedure TForm1．Button1Click（Sender：TObject）；<br>  
begin<br>  
Edit1．Text：=＇97／10／3010：09：59＇；<br>  
／／注意：控制面板内时间格式要为YY／MM／DDend；<br>  
end;<br>  
procedure TForm1．Button2Click（Sender：TObject）；<br>  
var<br>  
systemtime：Tsystemtime；<br>  
DateTime：TDateTime；<br>  
begin<br>  
DateTime：=StrToDateTime（Edit1．text）；<br>  
DateTimeToSystemTime（DateTime，systemtime）；<br>  
SetLocalTime（SystemTime）；<br>  
GetLocalTime（SystemTime）；／／读取北京东8区时间<br>  
DateTime：=SystemTimeToDateTime（SystemTime）；<br> 
Edit2．Text：=DateTimeToStr（DateTime）；<br> 
end；<br> 
<br> 
&nbsp;&nbsp;&nbsp; 另外，还有好多其它的Delphi函数和API函数供我们使用，如：<br>  
StrToDate、StrToTime、DateTimeToStr、StrToDate
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -