【正文】 lose(Source)。 FileClose(Dest)。 until BytesCopied ChunkSize。 try repeat BytesCopied := FileRead(Source, CopyBuffer^, ChunkSize)。 try Dest := FileCreate(Destination)。 try Source := FileOpen(FileName, fmShareDenyWrite)。 TimeStamp := FileAge(FileName)。\39。 begin Destination := ExpandFileName(DestName)。 Destination: TFileName。 TimeStamp, BytesCopied: Longint。 procedure CopyFile(const FileName, DestName: TFileName)。為保證文件的正常關閉和內存的 釋放，在拷貝過程中進行異常保護。而后提取源文件的時間戳，以備拷貝完成后設置目標文件。 在文件拷貝中首先檢查目標文件名是否是一個目錄。 文件拷貝、移動、刪除、更 名 文件拷貝的關鍵是使用了以文件句柄為操作對象的文件管理函數(shù)，因而提供了一種底層的 I/O 通道。 begin Result := (FileGetAttr(FileName) and Attr) = Attr。 function HasAttr(const FileName: String。 end。 ,Directory,SW_SHOW)。 begin With FileList do begin if HasAttr(FileName,faDirectory) then := FileName else ExecuteFile(FileName,39。程序修改如下。 end。39。 在子窗口的 Open1Click 事件處理過程中： procedure (Sender: TObject)。 有關 ShellExecute 中各參數(shù)的具體含義讀者可查閱聯(lián)機 Help 文件。 以上函數(shù)在 fmxutils單元中定義。 begin Result := ShellExecute(, nil, StrPCopy(zFileName, FileName), StrPCopy(zParams, Params), StrPCopy(zDir, DefaultDir), ShowCmd)。 ShowCmd: Integer): THandle。由于Windows API 函數(shù)的參數(shù)要求字符串類型是 PChar，而 Delphi 中一般用的是有結束標志的 String 類型，因此為調用方便我們把這一函數(shù)進行了重新定義如下。要注意的是：文件的關聯(lián)是以后綴名為標志的，因而對一個文件關聯(lián)方式的修改將影響所有相同后綴名的文件。 文件管理基本功能 的實現(xiàn) 在子窗口的 File 菜單中，定義了文件管理的基本功能，它們是： ● Open ：打開或運行一個文件 (從文件列表框雙擊該文件可實現(xiàn)同樣效果 ) ● Move ：文件在不同目錄間的移動 ● Copy ：文件拷貝 ● Delete ：文件刪除 ● Rename ：文件更名 ● Properties ：顯示文件屬性 文件打開 文件打開功能可以運行一個可執(zhí)行文件，或把文件在與之相關聯(lián)的應用程序中打開。 end。 with TabCanvas do begin Draw(, + 4, Bitmap)。 var Bitmap: TBitmap。 Index: Integer。 TabCanvas: TCanvas。這一工作就留給讀者自己去完成。這里我們只利用了前三個參數(shù)。第六章 文件管理（三） 這在 TabSet 的 OnDrawTab 事件處理過程中完成。這一事件處理過程的參數(shù)中包含了待畫項目索引、畫板、待畫區(qū)域、是否被選中等。事實上利用最后一個參數(shù)，我們可以對被選中的標簽進行一些特殊的視覺效果處理。 procedure (Sender: TObject。 R: TRect。 Selected: Boolean)。 begin Bitmap := TBitmap([Index])。 TextOut( + 2 + , + 2, [Index])。 end。文件總是與創(chuàng)建它的應用程序相關聯(lián)，這種關聯(lián)可以在 Windows 的 文件管理器中修改。 文件打開功能實現(xiàn)的關鍵是利用了 Windows API 函數(shù) ShellExecute 。 function ExecuteFile(const FileName, Params, DefaultDir: String。 var zFileName, zParams, zDir: array[0..79] of Char。 end。 fmxutils 是一個自定義代碼單元。 StrPCopy把一個 Pascal類型的字符串拷貝到一個無結束符的 PChar類型字符串中。 begin with FileList do ExecuteFile(FileName, 39。, Directory, SW_SHOW) 。 如果 FileList 允許顯示目錄的話 (即 FileType 屬性再增加一項ftDirectory)，那么對于一個目錄而言，打開的含義應該是顯示它下邊的子目錄和文件。 procefure (Sender: Tobject)。 39。 end。 其中 HasAttr 是一個 fmxutils 單元中的自定義函數(shù)，用于檢測指定文件是否具有某種屬性。 Attr: Word): Boolean。 end。在 Object Pascal 中這一點是利用無類型文件實現(xiàn)的。如是則把原文件的文件名添加到目標路徑后，生成目標文件全路徑名。拷貝過程中使用了返回文件句柄或以文件句柄為參數(shù)的文件管理函數(shù) FileOpen、 FileCreate、 FileRead、 FileWrite、 FileClose。 過程 CopyFile 實現(xiàn)上述功能，它定義在 fmxutils 單元中。 var CopyBuffer: Pointer。 Source, Dest: Integer。 const ChunkSize: Longint = 8192。 if HasAttr(Destination, faDirectory) then Destination := Destination + 39。 + ExtractFileName(FileName)。 GetMem(CopyBuffer, ChunkSize