首部 function ExtractFileDrive(const FileName: string): string; $[SysUtils.pas
功能 返回文件名所在驅動器
說明 ExtractFileDrive(C:)=C:;ExtractFileDrive(\ServerToolCalc.exe)=\ServerTool
參考 function System.Copy
例子 Edit1.Text := ExtractFileDrive(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ExtractFileName(const FileName: string): string; $[SysUtils.pas
功能 返回絕對文件名
說明 ExtractFileName(C:)=;ExtractFileName(\ServerToolCalc.exe)=Calc.exe
參考 function SysUtils.LastDelimiter;function System.Copy
例子 Edit1.Text := ExtractFileName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ExtractFileExt(const FileName: string): string; $[SysUtils.pas
功能 返回文件名的擴展名
說明 ExtractFileExt(C:)=;ExtractFileExt(\ServerToolCalc.exe)=.exe
參考 function SysUtils.LastDelimiter;function System.Copy
例子 Edit1.Text := ExtractFileExt(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ExpandFileName(const FileName: string): string; $[SysUtils.pas
功能 返回文件名的完整表示
說明 ExpandFileName(hello.pas)=C:Program FilesBorlandDelphi6Projectshello.pas
參考 function Windows.GetFullPathName
例子 Edit1.Text := ExpandFileName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string; $[SysUtils.pas
功能 分情況返回文件名的完整表示
說明 type TFilenameCaseMatch = (mkNone, mkExactMatch, mkSingleMatch, mkAmbiguous);
參考 function Windows.GetFullPathName;function SysUtils.SameFileName;function SysUtils.FindFirst
例子
///////Begin ExpandFileNameCase
procedure TForm1.Button1Click(Sender: TObject);
var
vFilenameCaseMatch: TFilenameCaseMatch;
begin
Edit1.Text := ExpandFileNameCase(Edit2.Text, vFilenameCaseMatch);
SpinEdit1.Value := Ord(vFilenameCaseMatch);
end;
///////End ExpandFileNameCase
━━━━━━━━━━━━━━━━━━━━━
首部 function ExpandUNCFileName(const FileName: string): string; $[SysUtils.pas
功能 返回LINUX文件名的完整表示
說明 ExpandUNCFileName(C:/)=C:
參考 function SysUtils.ExpandFileName
例子 Edit1.Text := ExpandUNCFileName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ExtractRelativePath(const BaseName, DestName: string): string; $[SysUtils.pas
功能 返回參數的相對路徑
說明 ExtractRelativePath(C:Windows, C:WindowsSystem)=System
參考 function SysUtils.SameFilename;function SysUtils.ExtractFileDrive
例子 Edit1.Text := ExtractRelativePath(Edit2.Text, Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ExtractShortPathName(const FileName: string): string; $[SysUtils.pas
功能 返回參數的DOS路徑
說明 ExtractShortPathName(C:Program FilesBorland)=C:PROGRA~1BORLAND
參考 function Windows.GetShortPathName
例子 Edit1.Text := ExtractShortPathName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function FileSearch(const Name, DirList: string): string; $[SysUtils.pas
功能 返回目錄列表中DirList搜索的第一個結果
說明 FileSearch(Calc.exe, d:winxpsystem32;c:windows)=d:winxpsystem32calc.exe
參考 function SysUtils.FileExists;function SysUtils.AnsiLastChar
例子 Edit1.Text := FileSearch(Edit2.Text, Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function DiskFree(Drive: Byte): Int64; $[SysUtils.pas
功能 返回驅動器可用空間
說明 參數Drive為0表示當前路徑,為1表示=A驅,為2表示=B驅...;獲取失敗則返回-1
參考 function Windows.GetDiskFreeSpaceExA
例子 SpinEdit1.Value := DiskFree(SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function DiskSize(Drive: Byte): Int64; $[SysUtils.pas
功能 返回驅動器全部空間
說明 參數Drive為0表示當前路徑,為1表示=A驅,為2表示=B驅...;獲取失敗則返回-1
參考 function Windows.GetDiskFreeSpaceExA
例子 SpinEdit1.Value := DiskSize(SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function FileDateToDateTime(FileDate: Integer): TDateTime; $[SysUtils.pas
功能 返回將文件日期時間類型轉換日期時間類型
說明 FileDate非法是將觸發異常
參考 function SysUtils.EncodeDate;function SysUtils.EncodeTime
例子 <參見FileAge>
━━━━━━━━━━━━━━━━━━━━━
首部 function DateTimeToFileDate(DateTime: TDateTime): Integer; $[SysUtils.pas
功能 返回將日期時間類型轉換文件日期時間類型
說明 年份在1980到2107之外則返回0
參考 function SysUtils.DecodeDate;function SysUtils.DecodeTime
例子 <參見FileSetDate>
━━━━━━━━━━━━━━━━━━━━━
首部 function GetCurrentDir: string; $[SysUtils.pas
功能 返回當前操作目錄
說明 [注意]調用文件對話框會改變當前操作目錄
參考 function System.GetDir
例子 Edit1.Text := GetCurrentDir;
━━━━━━━━━━━━━━━━━━━━━
首部 function SetCurrentDir(const Dir: string): Boolean; $[SysUtils.pas
功能 返回設置當前操作目錄是否成功
說明 [注意]調用文件對話框會改變當前操作目錄
參考 function Windows.SetCurrentDirectory
例子 CheckBox1.Checked := SetCurrentDir(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function CreateDir(const Dir: string): Boolean; $[SysUtils.pas
功能 返回創建目錄是否成功
說明 不支持多級目錄;已經存在則返回False
參考 function Windows.CreateDirectory
例子 CheckBox1.Checked := CreateDir(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function RemoveDir(const Dir: string): Boolean; $[SysUtils.pas
功能 返回刪除目錄是否成功
說明 必須是空目錄
參考 function Windows.RemoveDirectory
例子 CheckBox1.Checked := RemoveDir(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
功能 返回指針字符串的長度
說明 當指針字符串Str為nil時將觸發異常
參考 <NULL>
例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text));
