Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Brennen mit NeroCmd oder über NeroApi (https://www.delphipraxis.net/8610-brennen-mit-nerocmd-oder-ueber-neroapi.html)

ninja 8. Sep 2003 19:48


Brennen mit NeroCmd oder über NeroApi
 
Hallo.
Ich habe ein frage zum brennen über ein delphi-programm.
Ich möchte eine audio-cd brennen über NeroCmd, das funktioniert ganz gut, außer das ich jedes einzelne files angeben muß, da nerocmd irgendwie nicht mit *.wav zurechtkommt. nun ist es aber so das sich die dateien in dem verzeichnis ändern und ich nicht immer die titel von hand eintragen möchte.
meine parameter die an nerocmd übergeben werden sehen so aus:
z.B.
nerocmd.exe --write --real --drivename f --speed 8 -audio d:\test\1.wav
d:\test\2.wav (usw.) --verify
nun wollte ich wissen ob es doch nicht eine möglichkeit gibt alle dateien im verzeichnis test , ohne das ich alle dateinamen angeben muß, über nerocmd als audio-cd zubrennen???
wenn nicht wollte ich wissen wie man ein verzeichnis auslesen und alle dateien irgendwie zuordnen kann (zb. a := titel1.wav) und dieses dann weitergeben.
die übergabe an nerocmd habe ich folgendermaßen realisiert.
ShellExecute(0,
* * * * * * * *Nil,
* * * * * * * *PChar('C:\App.exe'),
* * * * * * * *Pchar('-Parameter'), <----- hier müßten dann alle einzelnen titel eingetragen werden, nach dem parameter --audio.
* * * * * * * *Pchar('C:\StartDir'),
* * * * * * * *SW_NORMAL);
beim googlen habe ich leider nichts passendes gefunden, allerdings bin ich auf eine sogenannte NeroApi gestossen, wobei ich hier allerdings nicht weiß wie ich dieses einsetzen soll.
vieleicht kann mir ja jemand helfen.
thx im vorraus
gruß ninja

Ghostwalker 9. Sep 2003 05:57

Re: Brennen mit NeroCmd oder über NeroApi
 
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)


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:38 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz