Die Maske mit mehreren Strings vergleichen!!!!

[Klaus01]

Delphi-Quellcode:

function BrowseDialog(const Title: string; const Flag: integer): string;
var
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  Result:='';
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  with BrowseInfo do
  begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName;
    lpszTitle := PChar(Title);
    ulFlags := Flag;
  end;

  lpItemID := SHBrowseForFolder(BrowseInfo);

  if lpItemId <> nil then
  begin
    SHGetPathFromIDList(lpItemID, TempPath);
    Result := IncludeTrailingBackslash(TempPath);
    GlobalFreePtr(lpItemID);
  end;

end; //BrowseDialog

Mit der obigen Funktion kannst Du einen Ordner öffnen.
Mit FindFirst und FindNext kannst Du dann in dem Ordner
nach den gewünschten Files suchen.

Ein Beispiel für mp3 Files:

Delphi-Quellcode:

procedure GetMP3FilesInDirectory(StartDir: string; AMask: String);
var
  SR: TSearchRec;
//  ID3: TID3Rec;
begin
  if (StartDir <> '') and (StartDir[length(StartDir)]<>'\') then
    StartDir:=StartDir+'\';

  if (FindFirst(StartDir+AMask,faAnyFile-faDirectory,SR)=0) then
  begin
    repeat

      if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Name<>StartDir) then
      BEGIN
          new_element(listelement,first_listelement,last_listelement);

//          Form2.testbox.items.add(ID3.title+'  '+ID3.artist);
          With listelement^ DO
          BEGIN
            location:=StartDir+SR.Name;
            FillID3TagInformation(StartDir+SR.Name,ID3Info)
          END;
      END;

    until FindNext(SR)<>0;
    FindClose(SR);
  end;

  if (FindFirst(StartDir+'*.*',faDirectory,SR)=0) then
  begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..') then
        GetMP3FilesInDirectory(StartDir+SR.Name,AMask);
    until FindNext(SR)<>0;
    FindClose(SR);
  end;

end;

Wenn Du auch noch Unterverzeichnisse durchsuchen möchtest
mußt Du das ganze so ändern das eine rekursive Suche möglich wird.

Ansonsten wirst Du hier im Forum auch noch genügend andere Beispeile für FindFirst
und FindNext finden.

Ergänzung:
Da der Filter des TOpenDialogs ein String ist, kannst Du auch mit dieser Methode feststellen
ob Deine DateiExtension in dem Filter aufgelistet ist.

Delphi-Quellcode:

if pos(ExtractFileExt(ListBox1.Items[Datei_aus_Liste]),OpenDialog2.Filter) <> 0 then
  //video
else
  if pos(ExtractFileExt(ListBox1.Items[Datei_aus_Liste]),OpenDialog1.Filter) <> 0 then
   //audio

Grüße
Klaus