首页 / 软件开发 / Delphi / 第六章-文件管理（三）（4）

第六章-文件管理（三）（4）2007-05-076.4.6 其它文件管理功能的实现

在子窗口的Function菜单中，定义了一些其它的文件管理功能：

● Search ：查找一个给定名字的文件，若存在则显示该文件属性

● Disk View ：显示当前驱动器的大小和剩余空间

● View type ：确定显示文件的类型

6.4.6.1 文件查找

当用户单击Search菜单项时，程序弹出一个对话框（如图6.10），要求输入待查找的文件名和查找路径。文件名可以是通配符。当用户确认后程序显示第一个匹配文件的属性（如图6.9）。查找不到匹配文件则给出相应的信息。

在实现这一功能的最初设计中，我试图使用FileSearch函数，这个函数允许在多个不同路径中查找。但可惜的是：也许由于系统设计者的失误，这个函数并没有返回它应该返回的东西（第一个匹配文件的全路径名），而是仍把输入的匹配符返回。

没有办法我只能再次使用FindFirst，这个函数的特性在6.3节中已进行了介绍。下面是这一功能的实现代码。

procedure TFMForm.search1Click（Sender: TObject）;

var

SearchForm: TSearchForm;

FileAttrForm: TFileAttrForm;

FindIt,path: String;

SearchRec: TSearchRec;

Return: Integer;

begin

SearchForm := TSearchForm.Create（self）;

with SearchForm do

begin

SearchFile.text := "";

SearchPath.text := DirectoryOutline.Directory;

if （ShowModal <> idCancel） and

（SearchFile.Text <> ""） and （SearchPath.text <> ""） then

begin

FindIt := SearchPath.text+""+SearchFile.text;

Return := FindFirst（FindIt,faAnyFile,SearchRec）;

if Return <> 0 then

FindIt := ""

else

FindIt := ExpandFileName（SearchRec.Name）;

end;

if FindIt = "" then

MessageDlg（"Cannot find the file in current directory.",

mtWarning, [mbOk], 0）

else

begin

Path := ExtractFilePath（FindIt）;

FindIt := ExtractFileName（FindIt）;

FileAttrForm := TFileAttrForm.Create（self）;

ShowFileAttr（FileAttrForm,FindIt,Path）;

end;

end;

end;

6.4.6.2 显示磁盘信息

当用户单击Disk View菜单项时，将弹出一个TDiskViewForm类型的对话框，用来显示当前磁盘的信息

磁盘信息的获取是在DiskViewForm中DriveEdit编辑框的OnChange事件处理过程中实现的。

procedure TDiskViewForm.driveEditChange（Sender: TObject）;

var

dr: Byte;

Free,Total: LongInt;

begin

Free := DiskFree（0）;

Total := DiskSize（0）;

FreeSpace.text := IntToStr（Free）+ " bytes.";

TotalSpace.text := IntToStr（Total） + " bytes.";

end;

DiskFree、DiskSize带参数为0表示当前驱动器。读者可以很容易把它改成按用户输入显示磁盘信息的情况。

DiskViewForm中的三个编辑框设计时都令ReadOnly为True。