unit1.pas

刻录机源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, mbDrvLib, mbCDBC, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    eISOFileName: TEdit;
    Panel2: TPanel;
    Label1: TLabel;
    bBurn: TButton;
    cbDrives: TComboBox;
    Memo1: TMemo;
    mcdb: TMCDBurner;
    procedure bBurnClick(Sender: TObject);
    procedure mcdbWriteDone(Sender: TObject; Error: String);
    procedure cbDrivesChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure mcdbDebugMessage(Sender: TObject; Message: String;
      mType: Byte);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.bBurnClick(Sender: TObject);
begin
  // mcdb.EraseDisc(etFast);  // Erase disc first
  mcdb.ClearAll;
  mcdb.InsertFile('\', 'c:\autoexec.bat');  // File(s) to burn
  Memo1.Lines.Add('>>> INSERTING FILE "c:\autoexec.bat"');
  mcdb.Prepare;
  mcdb.BurnCD;

end;

procedure TForm2.mcdbWriteDone(Sender: TObject; Error: String);
begin
  if Error = '' then
    Memo1.Lines.Add('>>> BURNCD DONE, Successful!')
  else
    Memo1.Lines.Add('>>> BURNCD DONE, '+Error);

end;

procedure TForm2.cbDrivesChange(Sender: TObject);
begin
  mcdb.Device := cbDrives.Text;
  Memo1.Lines.Add('>>> SELECTING '+mcdb.Device)

end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Memo1.Lines.Clear;                    // Clear Memo1
  mcdb.InitializeASPI;                  // Initialize ASPI Layer
  if not mcdb.ASPIInitialized then
  begin
    bBurn.Enabled := False;
    Memo1.Lines.Add('>>> Error initializing ASPI Layer, Please visit support page, http://www.binarymagics.com/html/support.html for more information');
    exit;
  end;
  if (mcdb.Devices <> nil) and (mcdb.Devices.Count > 0) then
     cbDrives.Items.Assign(mcdb.Devices);
  if cbDrives.Items.Count > 0 then
  begin
    cbDrives.ItemIndex := 0;
    cbDrivesChange(Sender);
  end;
end;

procedure TForm2.mcdbDebugMessage(Sender: TObject; Message: String;
  mType: Byte);
begin
  memo1.lines.add(Message);
end;

end.