Hallo,
man kann es zu Fuß machen - oder man verwendet eine Komponente:
Delphi-Quellcode:
function GetFiles(const dir, masks: string; s: TStrings = nil): Integer;
begin
with TFileListBox.CreateParented(HWND(-3)) do
try
Mask := masks;
Directory := dir;
FileType := [ftArchive];
Result := Items.Count;
if Assigned(s) then
s.Assign(Items);
finally
Free;
end;
end;
{
var
s: TStrings;
n: Cardinal;
begin
s := TStringList.Create;
n := GetFiles('c:\audio', '*.mp3;*.mp4', s);
ShowMessage(IntToStr(n) + sLineBreak + s.Text);
s.Free;
end;
}
Grüße vom marabu