⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 00501.htm

📁 提供了Delphi编程的几个巧妙用法
💻 HTM
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>1</title>
</head>

<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF">

<p><span style="BACKGROUND-COLOR: #ff0000"><a href="00501.zip">源程序下载</a></span><b><span style="background-color: #000080"><br>
</span></b><span style="background-color: #000000"><br>
</span><b><span style="background-color: #000080"><a name="1"></a>1：打开启动菜单<br>
</span></b><span style="background-color: #000000">procedure TForm1.Button1Click(Sender: TObject);<br>   
begin&nbsp;<br>  
&nbsp;&nbsp;&nbsp; SendMessage(Form1.handle,WM_SYSCOMMAND,SC_TASKLIST,0);<br>  
end;<br>  
<br>  
　&nbsp;<br>
</span><b><span style="background-color: #000080"><a name="2"></a>2：更改系统时间<br>
</span></b><span style="background-color: #000000">procedure TForm1.Button2Click(Sender: TObject);<br>   
var<br>   
&nbsp;&nbsp;&nbsp; systemtime : TSystemTime;<br>   
&nbsp;&nbsp;&nbsp; NewTime:string;<br>  
begin<br>  
&nbsp;&nbsp;&nbsp; NewTime:='13:58:00';<br>  
&nbsp;&nbsp;&nbsp; DateTimeToSystemTime( Date+StrToTime(NewTime),systemtime);<br>   
&nbsp;&nbsp;&nbsp; SetLocalTime(systemtime);<br>  
end;&nbsp;<br>  
<br>  
</span><b><span style="background-color: #000080"><a name="3"></a>3:得到windows的运行时间<br> 
</span></b><span style="background-color: #000000">用GetTickCount可以得到系统运行时间，GetTickCount得到的时间单位是milliseconds，然后用函数TurnNumToTime转换成传统的时间表示方式。<br> 
其程序如下：<br> 
Function TurnNumToTime(N : DWORD) : String;<br>  
Var<br>  
&nbsp;&nbsp;&nbsp; tH, tC, tS : DWord ;<br>  
&nbsp;&nbsp;&nbsp; RH, RC, RS : DWord ;<br>  
&nbsp;&nbsp;&nbsp; tempN : DWord ;<br>  
Begin<br>  
&nbsp;&nbsp;&nbsp; tS := 1000  ;<br>  
&nbsp;&nbsp;&nbsp; tC := 60*tS ;<br>  
&nbsp;&nbsp;&nbsp; tH := 60*tC ;<br>  
<br>  
&nbsp;&nbsp;&nbsp; TempN := N ;<br>  
&nbsp;&nbsp;&nbsp; RH    := TempN Div tH ;<br>  
<br>  
&nbsp;&nbsp;&nbsp; TempN := TempN Mod tH ;<br>  
&nbsp;&nbsp;&nbsp; RC := TempN Div tC ;<br>  
<br>  
&nbsp;&nbsp;&nbsp; TempN := TempN Mod tC ;<br>  
&nbsp;&nbsp;&nbsp; Rs    := tempN Div tS ;<br>  
<br>  
&nbsp;&nbsp;&nbsp; Result := IntToStr(Rh)+':' + IntToStr(Rc)+':' + IntToStr(Rs);<br>  
<br>  
End ;<br>  
<br>  
procedure TForm1.Button3Click(Sender: TObject);<br>  
begin<br>  
&nbsp;&nbsp;&nbsp; Label1.caption := 'Windows的运行时间是：'+TurnNumToTime(GetTickCount);&nbsp;<br> 
end;<br> 
<br> 
<br>    
</span>    
<span style="background-color: #FF0000"><a href="00501.zip">源程序下载</a></span>    
</p>  
  
</body>    
    
</html>

⌨️ 快捷键说明

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