[[kurono]]

disculpen amigos por la molestia pues he puesto varios hilo del mismo tema pero tengo un problemita resulta que aprendi a usar el componente cdbuner todo bien pero al momento de quemar me sale el asistente de grabacion de windows lo que quiero es que mi aplicacion se independice de windows osea que queme el cd sin llamar al asistente pues el asistente quema los archivo que estan introducido en la quemadora predeterminada de windows para quemar y me gustaria eligir cualquier quemadora pues temgo 3 espero que me ayuden y de nuevo pido sisculpa por lo varios hilo que e puesto aqui les muestro mi codigo el codigo fue copiado del ejemplo que trajo el componente

Código Delphi [-]
 
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.CopyToCDBurner(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 CopyToCDBurner('C:\FolderToAdd', cdBurner1.BurnArea ) then ShowMessage('Cannot find C:\FolderToAdd');
// Start burning
CDBurner1.StartBurn;
end;
end.