Aus einem Verzeichnis sollen alle Dateinamen in ein Tstringlist geladen werden, damit die abgespielt werden können?
Wie bekommt man die Dateien in das StringList?
Danke!
// uses FileCtrl;
//
procedure AlleDateienImVerz(pfad:string; gefunden:TStrings; MitUnterVerz:Boolean);
//gibt liste aller dateien im verz zurück, wahlweise mit allen in allen unterverz.
var
sr: TWin32FindData;
h: THandle;
begin
if ansilastchar(pfad)'\' then pfad:=pfad+'\';
h:=FindFirstFile(PChar(pfad + '\*.\*'),sr);
if not (h=INVALID\_HANDLE\_VALUE) then
repeat
if DirectoryExists(pfad+sr.cFileName) then
begin
if not (sr.cFileName[0]='.') then if MitUnterVerz then AlleDateienImVerz(pfad+sr.cFileName,gefunden, True);
end
else
begin
gefunden.add(pfad+sr.cFileName);
end;
until Findnextfile(h,sr)=false;
windows.FindClose(h);
end;
//
//
//
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringlist;
begin
sl:=TStringList.Create;
try
AlleDateienImVerz('G:\',sl,True);
ShowMessage(IntToStr(sl.Count) + ' Dateien auf Laufwerk G:');
finally
sl.Free;
end;
end;
Danke.
Ich probiere es.