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