The TCDBurner component allows your code to burn files to CDR/W discs on your Windows XP®/2003 system. This component will NOT work on systems other than Windows XP/2003 systems (although it gives a nice error message back to your program).
Essentially, it is a simple, friendly wrapper around the XP CD-Writing wizard.
Or, want to burn in C# or Delphi without using the Wizard? See XPBurn.
To install for Delphi, simply copy CDBurner.pas and CDBurner.DCR to a convenient place (e.g. \Delphi\LIB) and then choose the Component | Install Component menu option in Delphi.
Works with D4; add FileCtrl to the Uses clause
Free with source (after registration). Registration: You must email me your name, your country, and what sort of program you'll be using this component in.
I figured I'd sell it (and buy my partner something nice for putting up with my late hours ;-) but she said that I should just give it away.
But, if you'd like to donate to keep things moving, it's painless. Just click here.
This was actually quite a pain. I started off by realizing that MS has
probably exposed the functionality in XP. So, I searched on Google for "CD Burn
site:msdn.microsoft.com" where I found the info about ICDBurn.
I saw that it lived in Shell32.DLL, so I tried simply importing that from
Delphi. Unfortunately, the type library for it doesn't export (I'm kinda fudging
the technical details here) the interface, so Delphi doesn't pick it up. I was
banging my head against the wall, so I went back to MSDN's ICDBurn article.
From there, I learned which header file / .idl file contained the reference (it
shipped with Visual Studio.NET and also is in the IE SDK). From there, I found
the information on the object that implements this interface. I got the CLSID of
the object, and instantiated it from Delphi. Success. Now, the only problem is
that I only had the interface in IDL, which had to be converted to Delphi (since
it couldn't be imported, as I mentioned above). This was a real pain, and
entailed lots of access violations and internet research, as I figured out how
each IDL parameter mapped to a Delphi parameter.
Later, I wrapped the Delphi6 code into an ActiveX object for VB6. I
also figured out a much simpler way to do this using .IDL for C#.
Depending on community interest, I will most likely improve the helper functions. I'll also eventually write a demo app to show how the unit works.
Also, while XP's Wizard is nice, it might be cool to go around it and write directly to the disc, eh? Look here: XPBurn.
None known. Yet.
This example copies a folder and its subfolders to the root of the CD to be created. Note that it does not use the AddFiles helper method on the CDBurner object, because the AddFiles method does not create nested folders.
unit Unit1;
interface
uses
Windows,shellapi, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, CDBurner;
type
TForm1 = class(TForm)
Button1: TButton;
CDBurner1: TCDBurner;
function CopyToCDBurner(FromDir,ToDir : string ) : boolean;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// Perform Folder copy
function TForm1.CopyToCDBurnArea(FromDir,ToDir : string ) : boolean;
var
lpFileOpStruct : TSHFileOpStruct;
begin
lpFileOpStruct.wFunc := FO_COPY;
lpFileOpStruct.pFrom := Pchar(FromDir+#0);
lpFileOpStruct.pTo := Pchar(ToDir+#0);
lpFileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_SILENT;
Result := not Boolean(SHFileOperation(lpFileOpStruct));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Copy a folder tree to the burn area
if not CopyToCDBurnArea('C:\FolderToAdd', cdBurner1.BurnArea ) then ShowMessage('Cannot find C:\FolderToAdd');
// Start burning
CDBurner1.StartBurn;
end;
end.
type
TCDBurner = class(TComponent)
| constructor Create(AOwner: TComponent); | Pass a TForm in as the owner. If you need a non-visual version, register, and we'll talk. |
| procedure StartBurn; | First, copy any files specified with Add File or
Add Folder to the staging area.
Then burn the files in Windows XP's staging area to the disc. If you'd like to automate this even further, use SendKeys to send a "NEXT" command to the Wizard Window |
| property LastError: String | String containing the last error message generated by the component. |
| property Equipped: Boolean | TRUE if system has WindowsXP and a compatible CD burner, FALSE otherwise. |
| property IsBurning: Boolean | TRUE if the WindowsXP burn-wizard is currently active. |
| property BurnerDrive: String | CDR path to which the files are burned; e.g. "D:\" |
| property BurnArea: String | Local path of CD-burn staging area. Usually
%HOMEPATH%\Local Settings\Application
Data\Microsoft\CD Burning
|
| property FilesToBurn: TStringList read fFiles; | String list containing the files you've added via Add Files and Add Folders method. |
| property BurnSize: Int64 read GetBurnSize; | Size in bytes of files waiting to be burned. Check this is below the size of a blank CD (650mb) before calling StartBurn. |
Type TBurnDoneEvent = procedure (iResult: Integer) of Object;
| property OnBurnDone: TBurnDoneEvent; | Assign an event handler to this
Returns 0 if the XP Burn wizard exited normally; Non-zero otherwise. If nonzero, check LastError for more information, if available. |
These basic helper functions were added for those who don't want to deal with the file system on their own. They may be updated to be more useful in future versions, if I get lots of registrations. ;-)
| function AddFile(Filename: String): Boolean; | Copy a file to the staging area. Returns TRUE if added successfully. |
| function AddFolder(Path: String): Boolean; | Copy all files in and beneath the given Path to the staging area. Returns TRUE if added successfully. |
| function ClearFiles:Boolean; | Delete all files in the staging area. Returns TRUE if
all files and folders were removed successfully. WARNING: This method will delete all files & folders in the staging area, including those that were already there. Do not use this method carelessly, or you're going to have angry customers. |