00302.htm

来自「提供了Delphi编程的几个巧妙用法」· HTM 代码 · 共 91 行

HTM
91 行
字号 
<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">

<p align="left"><span style="BACKGROUND-COLOR: #ff0000"><a href="00302.zip">源程序下载</a></span> 
</p> 
 
<p><b><span style="background-color: #000080"><a name="1"></a>获取当前程序的目录</span></b><br>
function GetCurrentPath :string;<br>   
begin<br>   
&nbsp;&nbsp;&nbsp; Result:=ExtractFilePath(Application.Exename);<br>  
end;<br>  
<br>  
<b><span style="background-color: #000080"><a name="2"></a>得到光驱</span></b><br> 
Function GetCDROM :String;<br>   
Var<br>   
&nbsp;&nbsp;&nbsp; drv :DWORD;<br>   
&nbsp;&nbsp;&nbsp; mask :BYTE;<br>   
&nbsp;&nbsp;&nbsp; drive :String;<br>   
begin<br>   
&nbsp;&nbsp;&nbsp; mask :=$80;<br>   
&nbsp;&nbsp;&nbsp; drv :=GetLogicalDrives;<br>   
&nbsp;&nbsp;&nbsp; Repeat<br>  
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (drv and mask)&lt;>0 then Break;<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mask :=mask shr 1;<br>   
&nbsp;&nbsp;&nbsp; Until False;<br>   
&nbsp;&nbsp;&nbsp; Repeat<br>  
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; drv :=Trunc(log2(mask))+65;<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; drive :=Chr(drv)+':';<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if GetDriveType(PChar(drive))=5 then Break;<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mask :=mask shr 1;<br>   
&nbsp;&nbsp;&nbsp; until (mask=1);<br>   
&nbsp;&nbsp;&nbsp; Result :=drive;<br>   
end;<br>   
<br>   
<b><span style="background-color: #000080"><a name="3"></a>得到windows目录</span></b><br> 
function GetWindowsDir: String;<br>   
var<br>   
&nbsp;&nbsp;&nbsp; ac: array [1..20] of Char;<br>   
&nbsp;&nbsp;&nbsp; pc: PChar;<br>   
begin<br>   
&nbsp;&nbsp;&nbsp; pc := @ac;<br>   
&nbsp;&nbsp;&nbsp; GetWindowsDirectory(pc, 20);<br>   
&nbsp;&nbsp;&nbsp; Result := pc;<br>   
end;<br>   
<br>   
<b><span style="background-color: #000080"><a name="4"></a>得到System目录</span></b><br> 
function GetSystemDir: String;<br>   
var<br>   
&nbsp;&nbsp;&nbsp; ac: array [1..20] of Char;<br>   
&nbsp;&nbsp;&nbsp; pc: PChar;<br>   
begin<br>   
&nbsp;&nbsp;&nbsp; pc := @ac;<br>   
&nbsp;&nbsp;&nbsp; GetTempPath(20, pc);&nbsp;<br>  
&nbsp;&nbsp;&nbsp; Result := pc;<br>   
end;<br>   
<br>   
<b><span style="background-color: #000080"><a name="5"></a>得到windows临时路径</span></b><br> 
function GetTempDir: String;<br>   
var<br>   
&nbsp;&nbsp;&nbsp; ac: array [1..20] of Char;<br>   
&nbsp;&nbsp;&nbsp; pc: PChar;<br>  
begin<br>  
&nbsp;&nbsp;&nbsp; pc := @ac;<br>   
&nbsp;&nbsp;&nbsp; GetSystemDirectory(pc, 20);<br>   
&nbsp;&nbsp;&nbsp; Result := pc;<br>   
end;<br>   
<br>   
<b><span style="background-color: #000080"><a name="6"></a>察看文件是否存在</span></b><br> 
FileExists(FileName:String):Boolean;<br> 
<br> 
<b><span style="background-color: #000080"><a name="7"></a>改变文件扩展名<br> 
</span></b>ChangeFileExt(FileName:String);<br> 
<br> 
<b><span style="background-color: #000080"><a name="8"></a>得到文件的扩展名</span></b><br> 
ExtractFileExt(FileName:String):String;<br> 
<br>   
<span style="background-color: #FF0000"><a href="00302.zip">源程序下载</a></span>   
</p>  
   
</body>   
   
</html>

00302.htm - 源码说明

本页面展示了「提供了Delphi编程的几个巧妙用法」中的 00302.htm 源码文件，采用 HTM 编程语言编写，共 91 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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