WINDOWS下有一个很强大的搜索功能,就是搜索本地硬盘上的数据,包括能搜索文件和文件夹等,我想问一下,他这个功能是如何实现的?

解决方案 »

  1.   

    先列出所有的驱动器,然后从根目录开始查找,一层层往下找就行了,FAT32是这样的,NTFS的话有它自己的查找方式,但是你还是只要用到它的目录往下找就是了,可以不用考虑
      

  2.   

    //当button被选中,由Edit指定的文件名在当前路径和Windows路径中被查找。
    procedure TForm1.Button1Click(Sender:TObject);
    var
        buffer:array[0..255] of char;
        FileToFind:string;
    begin
        GetWindowsDirectory(buffer,SizeOf(buffer));
        FileToFind:=FileSearch(Edit1.Text,GetCurrentDir+';'+buffer);
        if FileToFind='' then
            showmessage('Couldn''tfind'+Edit1.text+'.')
        else
            showmessage('Found'+FileToFind+'.');
    end;
      

  3.   

    谁能给我一段完整的源码吗?我收到后就给分的哟!
    [email protected]