un1.pas

非常实用本人心血研制不是为了更多我需要的代码不会轻易拿出来换东东的关于盘刻录程序代码

unit Un1;

interface

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

type
  TForm1 = class(TForm)
    MCDBurner1: TMCDBurner;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure MCDBurner1WriteDone(Sender: TObject; Error: String);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
      INTERMSG   :   UINT;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;

     s1,s2,s3,s4:String;
begin



  MCDBurner1.InitializeASPI(True);
  if (MCDBurner1.Devices <> nil) and (MCDBurner1.Devices.Count > 0) then
  begin
         i:=0;
         while  i<MCDBurner1.Devices.Count do
               if      Pos('RW',UpperCase ( MCDBurner1.Devices.Strings[i])) <1 then
                     MCDBurner1.Devices.Delete(i) ELSE
                     i:=i+1;

    MCDBurner1.Device:= MCDBurner1.Devices.Strings[strtoint(ParamStr(1))] ;

   end
   else
   Exit;
  MCDBurner1.LoadMedium(false);

/////////////////////////////////


  MCDBurner1.ClearAll;


  s1:=ParamStr(2) ;
  s2:=ParamStr(3);
   s3:= ParamStr(4) ;
  s4:= ParamStr(5) ;
  MCDBurner1.InsertDir('\', S1, '*.*', faAnyFile, TRUE, FALSE, FALSE)  ;
  MCDBurner1.InsertDir('\', S2, '*.*', faAnyFile, TRUE, FALSE, FALSE)  ;

      MCDBurner1.Prepare;
  MCDBurner1.IdVolume :=s3+#10+#13+s4;
  MCDBurner1.WriteSpeed :=StrToIntDef(paramstr(7),16); 
 MCDBurner1.BurnCD;

end;

procedure TForm1.MCDBurner1WriteDone(Sender: TObject; Error: String);
begin
   MCDBurner1.LoadMedium(true);
       Button2.Click;
       Self.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: HWND;

begin

i:= FindWindow('TFORM1',pchar(ParamStr(6)));
INTERMSG :=RegisterWindowMessage('陈亚光');
  postmessage(i,INTERMSG,StrToIntDef(ParamStr(1),0) ,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Button1.Click;
end;

end.