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

📄 00302.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">

<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>

⌨️ 快捷键说明

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