how to find files

nurrohmawadi

how to make a file searching with LMDShellList..?

Rafael Maricca (LMD)

There is no built-in search feature (except certainly some sort of manual search in the items list of LMDShellFolder control).

SearchPack offers search funtionality (including text search).

nurrohmawadi

how to use LMDShellList1.FindData() clause..??

Rafael Maricca (LMD)

This is standard functionality of TCustomListView (search Delphi documentation for TCustomListView.FindData).

nurrohmawadi

procedure TForm1.search(const PathName, FileName: String; const InDir: boolean);

var Rec:TSearchRec;

    Path:string;

begin

  Path:=IncludeTrailingBackslash(PathName);

  if FindFirst(Path+FileName,faAnyFile - faDirectory,Rec)=0 then

    try

      repeat

        ListBox1.Items.Add(Rec.Name);

      until

        FindNext(Rec)<> 0;

    finally

      FindClose(Rec);

    end;

  if not InDir then

    Exit;

  if FindFirst(Path+'*.*', faDirectory, Rec) = 0 then

    try

      repeat

        if ((Rec.Attr and faDirectory) <> 0) and (Rec.Name<>'.') and (Rec.Name<>'..') then

        cari(Path + Rec.Name, FileName,True);

      until

      FindNext(Rec)<>0;

    finally

    FindClose(Rec);

    end;

I use this to display files in the listbox but how to transform and display on LMDShellListBox.?

#I'm not fluent in English so I translated it on google

Rafael Maricca (LMD)

>>I use this to display files in the listbox but how to transform and display on LMDShellListBox.?<<

This is not possible. The control is used to actually display existing folders. For displaying search results, you can use a simple TListView control.

nurrohmawadi

can you give me an example.

Rafael Maricca (LMD)

Not sure what you mean. Replace the ListBox1.Items.Add(Rec.Name); and add ListItems instead to a TListView. 

However I suggest you check e.g. the SearchPack demos. There is exactly the functionality included you are searching (and much more).