?? 00302.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>
Result:=ExtractFilePath(Application.Exename);<br>
end;<br>
<br>
<b><span style="background-color: #000080"><a name="2"></a>得到光驅(qū)</span></b><br>
Function GetCDROM :String;<br>
Var<br>
drv :DWORD;<br>
mask :BYTE;<br>
drive :String;<br>
begin<br>
mask :=$80;<br>
drv :=GetLogicalDrives;<br>
Repeat<br>
if (drv and mask)<>0 then Break;<br>
mask :=mask shr 1;<br>
Until False;<br>
Repeat<br>
drv :=Trunc(log2(mask))+65;<br>
drive :=Chr(drv)+':';<br>
if GetDriveType(PChar(drive))=5 then Break;<br>
mask :=mask shr 1;<br>
until (mask=1);<br>
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>
ac: array [1..20] of Char;<br>
pc: PChar;<br>
begin<br>
pc := @ac;<br>
GetWindowsDirectory(pc, 20);<br>
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>
ac: array [1..20] of Char;<br>
pc: PChar;<br>
begin<br>
pc := @ac;<br>
GetTempPath(20, pc); <br>
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>
ac: array [1..20] of Char;<br>
pc: PChar;<br>
begin<br>
pc := @ac;<br>
GetSystemDirectory(pc, 20);<br>
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 + -