поиск файлов

[KORN]

помогите мне решить вот какую проблему, я использую вот эту процедуру:

 
procedure TForm1.FindFile(Dir:String);
Var SR:TSearchRec;
    FindRes:Integer;
begin
FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR);
While FindRes=0 do
   begin
      if ((SR.Attr and faDirectory)=faDirectory) and
      ((SR.Name='.')or(SR.Name='..')) then
         begin
            FindRes:=FindNext(SR);
            Continue;
         end;
      if ((SR.Attr and faDirectory)=faDirectory) then 
         begin
            FindFile(Dir+SR.Name+'\');           
            FindRes:=FindNext(SR);
            Continue; 
         end;
      ListBox1.Items.Add(SR.Name);
      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end;

как сделать что бы при поиске файлов выводился полный путь к файлу7

[Alar]

Например, эта функция - http://delphibasics.ru/FileSearch.php

[mihali4]

как сделать что бы при поиске файлов выводился полный путь к файлу

procedure TForm1.FindFile(Dir:String);
Var SR:TSearchRec;
    FindRes:Integer;
    isfile: boolean;
begin
FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR);
While FindRes=0 do
   begin
     isfile:=True;
      if ((SR.Attr and faDirectory)=faDirectory) and
      ((SR.Name='.')or(SR.Name='..')) then
         begin
            isfile:=False;
            FindRes:=FindNext(SR);
            Continue;
         end;
      if ((SR.Attr and faDirectory)=faDirectory) then 
         begin
            isfile:=False;
            FindFile(Dir+SR.Name+'\');           
            FindRes:=FindNext(SR);
            Continue; 
         end;
      if isfile then
      ListBox1.Items.Add(Dir+'\'+SR.Name) else
      ListBox1.Items.Add(SR.Name);
      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end;

[KORN]

Спасибо... чуть подправил и все прекрасно работает дажэ без isfile...