Как сканировать папки и подпапки?

[Anfall]

Использую вот такую функцию

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var
   Rec:TSearchRec;
   TMP:TStrings;
   ls,ex: String;
   i: integer;
   ok: integer;
begin
Result:=TStringList.Create;
if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  //ChDir(Path);
ok:=FindFirst(Path+'\*.*',faAnyFile,Rec);
while ok=0 do
begin
if (Rec.Name<>'.')and(Rec.Name<>'..') then
if (Rec.Attr and faDirectory) <> 0 then begin
TMP:=GetFiles(Path+Rec.Name,True);
Result.AddStrings(TMP);
TMP.Free;
end else
begin
ex:=ExtractFileExt(Rec.Name);
if (ex='.mp3') or (ex='.wav') or (ex='.ogg') or (ex='.wma')  then
Result.Add(Path+Rec.Name);
end;
ok:=FindNext(Rec);
end;
end;

Пример

ListBox2.Items.AddStrings(GetFiles('C:\music'))

Все в принципе работает. Но можно ли сделать так:
Если я написал не путь к папке, а путь к файлу чтобы он его не игнорировал, а помещал в ListBox2? Что надо изменить?

[Andrei]

Перед вашим кодом:

if Length(ExtractFileName(Path))>0 then
begin
 //Path - это, предположительно, имя файла. Пишем нужный обработчик.
 ......
end;

[Serge_Bliznykov]

можно так:

MyPath := 'C:\Music\lalala.mp3';
if FileExists(MyPath) then
  ListBox2.Items.Add(MyPath)
else
  ListBox2.Items.AddStrings(GetFiles(MyPath));

p.s. меня мучают смутные сомнения...
в процедуре GetFiles создаётся TStringList (Result:=TStringList.Create
но я в упор не вижу, где он удаляется.... :-( Это утечки памяти ;-(

[s.Creator]

Может так?

function IsMyFile(FileName: String): Boolean;
var
  ex: String;
begin
  ex:=ExtractFileExt(FileName);
  Result := ((ex='.mp3') or (ex='.wav') or (ex='.ogg') or (ex='.wma'));
end;

procedure GetFilesList(Path: String; ResList: TStrings; Recursive: Boolean = False; NewList : Boolean = True);
Var
  Rec:TSearchRec;
  ok: integer;
begin
  if not Assigned(ResList) then
    raise Exception.Create('ResList is Nil');

  if NewList then
    ResList.Clear;

  if FileExists(Path) then
  begin
    if IsMyFile(Path)  then
      ResList.Add(Path);
    exit;
  end else
    if not DirectoryExists(Path) then
      raise Exception.Create('Path задан неверно');

  Path := IncludeTrailingPathDelimiter(Path);

  ok:=FindFirst(Path+'*.*',faAnyFile,Rec);
  while ok=0 do
  begin
    if (Rec.Name<>'.')and(Rec.Name<>'..') then
      if Recursive or ((Rec.Attr and faDirectory) = 0) then
      begin
        GetFilesList(Path+Rec.Name, ResList, True, False);
      end;
    ok:=FindNext(Rec);
  end;
end;

// пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetFilesList(ExtractFilePath(Application.ExeName), ListBox1.Items, True, True);
end;

[Anfall]

Сообщение от Serge_Bliznykov

можно так:

MyPath := 'C:\Music\lalala.mp3';
if FileExists(MyPath) then
  ListBox2.Items.Add(MyPath)
else
  ListBox2.Items.AddStrings(GetFiles(MyPath));

p.s. меня мучают смутные сомнения...
в процедуре GetFiles создаётся TStringList (Result:=TStringList.Create
но я в упор не вижу, где он удаляется.... :-( Это утечки памяти ;-(

Хммм. Спасибо, и как эти утечки "Удалить"?