【正文】 var NewDir: TNewDir。通過檢查 IOResult 是否為 0可以確定創(chuàng)建是否成功。如果用戶不輸入路徑，則缺省認定為當前目錄的子目錄： Dir := ExpandFileName()； 而后調用 MkDir 函數。 其中的 CreateCaption 私有過程將在 ()中進行介紹。 CreateCaption。 := FileMask。 then FileMask := 39。 If FileMask = 39。Input File type For View :39。File type39。 var FileMask: String。而后利用 Update 方法更新 FileList。 改變顯示文件的類型 改變顯示文件的類型事 實上是設置 FileList 的 Mask 屬性。讀者可以很容易把它改成按用戶輸入顯示磁盤信息的情況。 end。 := IntToStr(Total) + 39。 := IntToStr(Free)+ 39。 begin Free := DiskFree(0)。 var dr: Byte。 顯示磁盤信息 當用戶單擊 Disk View菜單項時，將彈出一個 TDiskViewForm類型的對話框，用來顯示當前磁盤的信息 磁盤信息的獲取是在 DiskViewForm 中 DriveEdit 編輯框的OnChange 事件處理過程中實現的。 end。 ShowFileAttr(FileAttrForm,FindIt,Path)。 FindIt := ExtractFileName(FindIt)。Cannot find the file in current directory.39。39。 end。39。 Return := FindFirst(FindIt,faAnyFile,SearchRec)。\39。39。39。 := 。 with SearchForm do begin := 39。 Return: Integer。 FindIt,path: String。 var SearchForm: TSearchForm。下面是這一功能的實現代碼。但可惜的是：也許由于系統(tǒng)設計者的失誤，這個函數并沒有返回它應該返回的東西 (第一個匹配文件的全路徑名 )，而是仍把輸入的匹配符返回。查找不到匹 配文件則給出相應的信息。文件名可以是通配符。 end。 function FileDateTime(const FileName: String): 。 end。 end。 if then NewAttributes := NewAttributes or faHidden else NewAttributes := NewAttributes and not faHidden。 if then NewAttributes := NewAttributes or faArchive else NewAttributes := NewAttributes and not faArchive。 if ShowModal idCancel then begin NewAttributes := Attributes。 := (Attributes and faSysFile) = faSysFile。 := (Attributes and faReadOnly) = faReadOnly。 := DateTimeToStr(FileDateTime(AFileName))。 begin with FileAttrForm do begin := AFileName。 AFileName,Directory:String)。 end。 begin FileAttrForm := (self)。 var Attributes, NewAttributes: Word。 顯示文件屬性 當程序執(zhí)行 Properties 菜單項的 Click 事件處理過程時，首先彈出一個TFileAttrForm 類型的對話框，顯示文件的屬性 當用戶修改并確認后程序重新設置文件屬性。 end。 then changeDirectory(ToFile)。 then RenameFile(FromFile, ToFile) else if ACaption = 39。 then CopyFile(FromFile, ToFile) else if ACaption = 39。 then MoveFile(FromFile, ToFile) else if ACaption = 39。, [ACaption, FromFile, ToFile]), mtConfirmation, [mbYes, mbNo], 0) = idYes then begin if ACaption = 39。 begin if MessageDlg(Format(39。 end。) then ConfirmChange(Caption, , )。 if (ShowModal idCancel) and ( 39。39。 := 。39。 := 。 end else Exit。Change Directory39。Rename39。Copy39。Move39。 IsFile := True。 IsFile: Boolean。 共用的事件處理過程 FileChange 的程序清單如下： procedure (Sender: TObject)。因而可以采用統(tǒng)一的用戶界面，即 ChangeForm對話框 這四個菜單項共用一個 Click 事件處理過程，通過對 Sender 參數的檢測，決定將要打開對話框的標題和顯示內容。操作執(zhí)行前應彈出一個對話框進行確認，執(zhí)行完畢后應調用 Update 方法更新 FileList 的顯示。 文件刪除、文件更名直接調用 Delphi 文件管理過程 DeleteFile、RenameFile。 EFCanMove 是一個自定義異常類： type EFCanMove := Class(EStreamError)。 end。 CopyFile(FileName, Destination)。 begin Destination := ExpandFileName(DestName)。 procedure MoveFile(const FileName, DestName: TFileName)。 文件移動事實上是文件拷貝與文件刪除的結合。 end。 finally FreeMem(CopyBuffer, ChunkSize)。 finally FileC