DVD

开发平台：
Delphi

Unit2.pas：源码内容
							unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DriveCombo: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    CheckBox16: TCheckBox;
    GroupBox4: TGroupBox;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox25: TCheckBox;
    CheckBox26: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure DriveComboChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
Uses Unit1,scsidefs, BurnUnit, AudioImage, BinCueImage, FileImage, WaveUtils, ImgList,
    Devices, SCSITypes, CovertFuncs, CDSizer,
    SPTIUnit, wnaspi32,SCSIUnit,DiscInfo,Device, DeviceInfo;
procedure TForm2.FormCreate(Sender: TObject);
begin
  DriveCombo.Clear;
  DriveCombo.Items.AddStrings(Unit1.BurnerForm.DriveCombo.Items);
  DriveCombo.ItemIndex:=Unit1.BurnerForm.DriveCombo.ItemIndex;
  DriveComboChange(Self);
end;
procedure TForm2.DriveComboChange(Sender: TObject);
var
  CDROMCap: TCdRomCapabilities;
  DiscInfo: TDiscInfo;
  Device: TDevice;
begin
  Device:=Unit1.BurnerForm.CDBurnerList.Items[DriveCombo.ItemIndex];
  DiscInfo := Device.DiscInfo;
  CDROMCap := Device.Capability;
  try
    Label1.Caption:=
      Device.DeviceInfo.DriveLetter+':'+
      Device.DeviceInfo.VendorName;
    Label2.Caption:=  Device.DeviceInfo.VendorSpec;
    Label3.Caption:=  Device.DeviceInfo.Revision;
    CheckBox1.Checked := cdcReadCDR      in CDROMCap;
    CheckBox1.Hint    := 'Read CD-R media';
    CheckBox1.Enabled := true;
    CheckBox2.Checked := cdcReadCDRW     in CDROMCap;
    CheckBox1.Hint    := 'Read CD-RW media';
    CheckBox2.Enabled := true;
    CheckBox16.Checked := cdcReadMethod2 in CDROMCap;
    CheckBox16.Hint    := 'Read CD-R written using fixed packets';
    CheckBox16.Enabled := true;
    CheckBox3.Checked := cdcReadDVDRAM   in CDROMCap;
    CheckBox3.Hint    := 'Read DVD-RAM media';
    CheckBox3.Enabled := true;
    CheckBox4.Checked := cdcReadDVD      in CDROMCap;
    CheckBox4.Hint    := 'Read DVD-ROM media';
    CheckBox4.Enabled := true;
    CheckBox5.Checked := cdcReadDVDR     in CDROMCap;
    CheckBox5.Hint    := 'Read DVD-R / DVD-RW media';
    CheckBox5.Enabled := true;
                                    
    // Write Capability
    CheckBox13.Checked := cdcWriteCDR    in CDROMCap;
    CheckBox13.Hint    := 'Write CD-R media';
    CheckBox13.Enabled := true;
    CheckBox14.Checked := cdcWriteCDRW   in CDROMCap;
    CheckBox14.Enabled := true;
    CheckBox15.Checked := cdcWriteDVDRAM in CDROMCap;
    CheckBox15.Enabled := true;
    CheckBox17.Checked := cdcWriteDVDR   in CDROMCap;
    CheckBox17.Enabled := true;
    CheckBox22.Checked := cdcWriteBurnProof in CDROMCap;
    CheckBox22.Hint    := 'Can Use Burn Proof';
    CheckBox22.Enabled := true;
    // Extended feature
    CheckBox23.Checked := cdcReadMode2form1 in CDROMCap;
    CheckBox23.Hint    := 'Capable to read Mode 2 Form 1 (CD-XA format)';
    CheckBox23.Enabled := true;
    CheckBox24.Checked := cdcReadMode2form2 in CDROMCap;
    CheckBox24.Hint    := 'Capable to read Mode 2 Form 2 (CD-XA format)';
    CheckBox24.Enabled := true;
    CheckBox25.Checked := cdcReadMultisession in CDROMCap;
    CheckBox25.Hint    := 'Capable to read PhotoCD format (multiple sessions)';
    CheckBox25.Enabled := true;
    CheckBox25.Checked := cdcCddaBarCode in CDROMCap;
    CheckBox25.Hint    := 'Capable to read CD disc bar code';
    CheckBox25.Enabled := true;
//    caption:=IntToMB(FB);
    {
    Strings.Add('-- Device Writing Methods --');
    if cdcWriteCDRW in CDROMCap then
      Strings.Add('    Write CD-RW media');
    if cdcWriteDVDR in CDROMCap then
      Strings.Add('    Write DVD-R / DVD-RW media');
    if cdcWriteDVDRAM in CDROMCap then
      Strings.Add('    Write DVD-RAM media');
    Strings.Add('-- Device Writing Extended Functions --');
    if cdcWriteTestMode in CDROMCap then
      Strings.Add('    Write in test mode');
    if cdcWriteBurnProof in CDROMCap then
      Strings.Add('    Can Use Burn Proof');
    Strings.Add('-- Device Extended Methods --');
    if cdcReadMode2form1 in CDROMCap then
      Strings.Add('        Capable to read Mode 2 Form 1 (CD-XA format)');
    if cdcReadMode2form2 in CDROMCap then
      Strings.Add('        Capable to read Mode 2 Form 2 (CD-XA format)');
    if cdcReadMultisession in CDROMCap then
      Strings.Add('        Capable to read PhotoCD format (multiple sessions)');
    if cdcCddaBarCode in CDROMCap then
      Strings.Add('       Capable to read CD disc bar code');
    result := Strings.Text;
     }
  finally
  end;
end;
end.

						