說明  不關閉打開的文件會占用系統資源
參考  function Windows.CloseHandle
例子  <參見FileOpen>
━━━━━━━━━━━━━━━━━━━━━  
首部  function FileAge(const FileName: string): Integer; $[SysUtils.pas
功能  返回文件創建的時間
說明  文件不存在則返回-1
參考  function Windows.FindFirstFile
例子
///////Begin FileAge,DateTimeToStr,FileDateToDateTime
procedure TForm1.Button1Click(Sender: TObject);
begin
  SpinEdit1.Value := FileAge(Edit1.Text);
  if SpinEdit1.Value > 0 then
    Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
end;
///////End FileAge,DateTimeToStr,FileDateToDateTime
━━━━━━━━━━━━━━━━━━━━━
首部  function FileExists(const FileName: string): Boolean; $[SysUtils.pas
功能  返回文件名FileName是否有實體存在
說明  包括隱藏文件
參考  function SysUtils.FileAge
例子  CheckBox1.Checked := FileExists(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━  
首部  function DirectoryExists(const Directory: string): Boolean; $[SysUtils.pas
功能  返回目錄名FileName是否有實體存在
說明  包括隱藏目錄
參考  function Windows.GetFileAttributes
例子  CheckBox1.Checked := DirectoryExists(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ForceDirectories(Dir: string): Boolean; $[SysUtils.pas
功能  返回創建子目錄是否成功
說明  直接創建多級目錄
參考  function SysUtils.CreateDir
例子  CheckBox1.Checked := ForceDirectories(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; $[SysUtils.pas
功能  返回設置文件搜索
說明  搜索成功則返回0
參考  function Windows.FindFirstFile
例子
///////Begin FindFirst,FindNext,FindClose
procedure TForm1.Button1Click(Sender: TObject);
var
  vSearchRec: TSearchRec;
  I: Integer;
begin
  Memo1.Clear;
  I := FindFirst(Edit1.Text, faAnyFile, vSearchRec);
  while I = 0 do begin
    Memo1.Lines.Add(vSearchRec.Name);
    I := FindNext(vSearchRec);
  end;
  FindClose(vSearchRec);
end;
///////End FindFirst,FindNext,FindClose
━━━━━━━━━━━━━━━━━━━━━
首部  function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas
功能  返回繼續文件搜索
說明  搜索成功則返回0
參考  function Windows.FindNextFile
例子  <參見FindFirst>
━━━━━━━━━━━━━━━━━━━━━
首部  procedure FindClose(var F: TSearchRec); $[SysUtils.pas
功能  結束當前文件搜索
說明  不關閉查詢會占用系統資源
參考  function Windows.FindClose
例子  <參見FindFirst>
━━━━━━━━━━━━━━━━━━━━━
首部  function FileGetDate(Handle: Integer): Integer; $[SysUtils.pas
功能  返回文件的修改時間
說明  讀取失敗則返回-1
參考  function Windows.GetFileTime
例子
///////Begin FileGetDate
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I := FileOpen(Edit1.Text, fmOpenRead);
  if I < 0 then Exit;
  SpinEdit1.Value := FileGetDate(I);
  Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
  FileClose(I);
end;
///////End FileGetDate
━━━━━━━━━━━━━━━━━━━━━
首部  function FileSetDate(const FileName: string; Age: Integer): Integer; overload; $[SysUtils.pas
首部  function FileSetDate(Handle: Integer; Age: Integer): Integer; overload; platform; $[SysUtils.pas
功能  返回設置文件的修改時間
說明  修改成功則返回0
參考  function Windows.SetFileTime
例子  SpinEdit1.Value := FileSetDate(Edit1.Text, DateTimeToFileDate(StrToDateTime(Edit2.Text)));
━━━━━━━━━━━━━━━━━━━━━  
首部  function FileGetAttr(const FileName: string): Integer; platform; $[SysUtils.pas
功能  返回文件的屬性
說明  讀取失敗則返回$FFFFFFFF
參考  function Windows.GetFileAttributes
例子  SpinEdit1.Value := FileGetAttr(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function FileSetAttr(const FileName: string; Attr: Integer): Integer; platform; $[SysUtils.pas
功能  返回設置文件的屬性
說明  設置成功則返回0
參考  function Windows.SetFileAttributes
例子  SpinEdit1.Value := FileSetAttr(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部  function FileIsReadOnly(const FileName: string): Boolean; $[SysUtils.pas
功能  返回文件是否只讀
說明  文件不存在看作只讀
參考  function Windows.GetFileAttributes
例子  CheckBox1.Checked := FileIsReadOnly(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean; $[SysUtils.pas
功能  返回設置文件是否只讀是否成功
說明  文件不存在則返回False
參考  function Windows.GetFileAttributes;function Windows.SetFileAttributes
例子  CheckBox1.Checked := FileSetReadOnly(Edit1.Text, CheckBox2.Checked);
━━━━━━━━━━━━━━━━━━━━━  
首部  function DeleteFile(const FileName: string): Boolean; $[SysUtils.pas
功能  返回刪除文件是否成功
說明  文件不存在則返回False
參考  function Windows.DeleteFile
例子  CheckBox1.Checked := DeleteFile(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━  
首部  function RenameFile(const OldName, NewName: string): Boolean; $[SysUtils.pas
功能  返回重命名文件是否成功
說明  文件不存在則返回False
參考  function Windows.MoveFile
例子  CheckBox1.Checked := RenameFile(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils.pas
功能  返回改變擴展名后的文件名
說明  [注意]擴展名Extension前要加點;ChangeFileExt('a.jpg', 'bmp')='abmp'
參考  function SysUtils.LastDelimiter;function System.Copy
例子  Edit1.Text := ChangeFileExt(Edit2.Text, Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractFilePath(const FileName: string): string; $[SysUtils.pas
功能  返回文件名所在的路徑
說明  ExtractFilePath('C:\')='C:\';ExtractFilePath('\\Server\Tool\Calc.exe')='\\Server\Tool\'
參考  function SysUtils.LastDelimiter;function System.Copy
例子  Edit1.Text := ExtractFilePath(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractFileDir(const FileName: string): string; $[SysUtils.pas
功能  返回文件名所在的目錄
說明  ExtractFileDir('C:\')='C:\';ExtractFileDir('\\Server\Tool\Calc.exe')='\\Server\Tool'
參考  function SysUtils.LastDelimiter;function System.Copy
例子  Edit1.Text := ExtractFileDir(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractFileDrive(const FileName: string): string; $[SysUtils.pas
功能  返回文件名所在驅動器
說明  ExtractFileDrive('C:\')='C:';ExtractFileDrive('\\Server\Tool\Calc.exe')='\\Server\Tool'
參考  function System.Copy
例子  Edit1.Text := ExtractFileDrive(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractFileName(const FileName: string): string; $[SysUtils.pas
功能  返回絕對文件名
說明  ExtractFileName('C:\')='';ExtractFileName('\\Server\Tool\Calc.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('\\Server\Tool\Calc.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 Files\Borland\Delphi6\Projects\hello.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:\Windows\System')='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 Files\Borland')='C:\PROGRA~1\BORLAND'
參考  function Windows.GetShortPathName
例子  Edit1.Text := ExtractShortPathName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function FileSearch(const Name, DirList: string): string; $[SysUtils.pas
功能  返回目錄列表中DirList搜索的第一個結果
說明  FileSearch('Calc.exe', 'd:\winxp\system32;c:\windows')='d:\winxp\system32\calc.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));
━━━━━━━━━━━━━━━━━━━━━
首部  function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
功能  返回指針字符串的結尾
說明  當指針字符串Str為nil時將觸發異常
參考  <NULL>
例子  Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;
━━━━━━━━━━━━━━━━━━━━━
首部  function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): PChar; $[SysUtils.pas
功能  返回將指針字符串Source指定內存數量Count復制覆蓋到指針字符串Dest中