Блог программистов

Procedure TMainForm.AddFolderToPlayList(Dir: String; Format: String; Folder: Boolean);
Var
  Folders: TStrings;// Memo на форме
  I, M: Integer;
  SearchRec: TSearchRec;
Begin
  M:=-1;
  If FindFirst(Dir + Format, faAnyFile, SearchRec) = 0 Then
  Begin
    PlayListBox.Items.Add(Dir+SearchRec.Name);
    While (FindNext(SearchRec) = 0) Do
      PlayListBox.Items.Add(Dir+SearchRec.Name);
  End;
  FindClose(SearchRec);

  If Folder Then
  Begin
    If FindFirst(Dir+'*', faDirectory, SearchRec) = 0 Then
    Begin
      If (SearchRec.Name<>'') And (SearchRec.Name<>'.') And (SearchRec.Name<>'..') Then
      Begin
        M:=M+1;
        Folders.Add(Dir+SearchRec.Name+'\');
      End;

      While (FindNext(SearchRec) = 0) Do
        If (SearchRec.Name<>'') And (SearchRec.Name<>'.') And (SearchRec.Name<>'..') Then
        Begin
          M:=M+1;
          Folders.Add(Dir+SearchRec.Name+'\');
        End;
      FindClose(SearchRec);

      For I:=0 To M Do AddFolderToPlayList(Folders.Strings[i], Format, True);
    End;
  End;
End;