I'm using Binary Magic Magic CD/DVD Burner control for Delphi 6. I have 3 CheckListBoxes (each holds a certain file extension: Thanks to Cynna for clearing that mess up) on a form so that then when I click the burn button the CheckListBox contents of each three gets moved to three pre-created folders (folder names are video, reports, images). Once they get moved, the burn procedure starts. There will be an executable (and an autorun file) that is at the root of the folders that gets copied and burned as well.
So during the installation (and providing the defaults were used during the installation) of the buring EXE, the target machine gets this setup:
and inside the 'MyApp' folder is:
BurnApp.exe --- the application that is used to burn CDs.
a folder called: APP
Inside 'APP' folder is:
A VIDEO folder
A REPORTS folder
A IMAGES folder
Procedure is that a user would launch the BurnApp.exe and they'd add the contents of each folders into the CheckListBoxes by draging and dropping.
When the burn sequence is complete, on the CD-ROM is mainapp.exe file (stored at the root), the three folders and the contents of each CheckListBox has been placed in each folder.
At the root is a executable
then three folders are just below that part:
And then Ideally, the contents of the folders would get 'emptied'.
The demo application created by Magic CD/DVD uses this, but then it only focuses on one CheckListBox and doesn't look at the 3 folders:
fPath, fName: String;
if SessionToImport <> 0 then
mcdb.SessionToImport := 0;
Entries := clBox.Items.Count;
if Entries < 1 then
ShowMessage('Atleast one file/directory should be selected');
for i:=0 to Entries-1 do
fPath := ExtractFilePath(clBox.Items[i]);
fName := ExtractFileName(clBox.Items[i]);
if DirectoryExists(clBox.Items[i]) then
mcdb.InsertDir(mcdb.RootDir, fPath, '*.*', faAnyFile, clBox.Checked[i], cPathInfo.Checked, oArchiveFiles)
mcdb.InsertFile('\', fPath+fName, cPathInfo.Checked);
I'd like to modify this part as the procedure is already called by the main burn procedure. Any help would be great. Sorry but my Delphi skills are not the best.