Zitat:
Falls Du als Zielplattform also Win98 hast
Hehehe, nein, das ist weniger meine Zielplattform... ich denke aus diesem Jahrhundert sind wir langsam raus.
Zitat von
marabu:
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
Hört sich vielversprechend an... oder besser "gesagt", sieht vielversprechend aus... Hoffe dass ich am Mittwochabend wieder Zeit zum Proggen habe, dann probiere ich beide Wege mal aus. Danke euch, Leute! Echt ein supi Forum!
