Brennen mit NeroCmd oder über NeroApi

[Ghostwalker]

Nun..das Verzeichnis auslesen um alle dateien zu bekommen ist sehr einfach:

Code:

Var
  Filelist : TStrings;


// Anmerkung: Bei Rootpath bitte abschließenden Backslash angeben also
// z.B. C:\Temp\
Procedure GetFilesDir(Rootpath:String;FileMask:String);
var
  SR : TSearchrec;

begin
  Filelist := TStringlist.create;  //Liste der gefundenen Dateien init.
  if FindFirst(Rootpath+Filemask,faAnyFile,sr) = 0 then //1. Eintrag suchen
  begin
    if (sr.attr <> faDirectory) then  //Ists ne Datei ?
        filelist.append(rootpath+sr.name); // Zur Liste hinzufügen
    While (findnext(sr) = 0) do //Nächster Eintrag
    begin
      if (sr.attr <> faDirectory) then 
         filelist.append(rootpath+sr.name); 
    end;
    findclose;
  end;
end;

Das wars auch schon. Mit Filemask kannst du die suche einschränken (z.B. *.wav)