tcdbdemo.dpr

使用ASPI读SCSI/IDE/ATAPI的CDROM数据或音乐磁道数据的程序

program TCdBdemo;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  TASPIDEV in '..\Taspidev.pas',
  Tcdbasic in '..\Tcdbasic.pas',
  Unit2 in 'Unit2.pas' {AboutBox},
  Unit3 in 'Unit3.pas' {SelfTestDlg},
  Unit4 in 'Unit4.pas' {ReadCaPMDlg},
  Unit5 in 'Unit5.pas' {StartStopDlg},
  Unit6 in 'Unit6.pas' {Seek10Dlg},
  Unit7 in 'Unit7.pas' {ReadSubchannelDlg},
  Unit12 in 'Unit12.pas' {ReadTocDlg},
  Unit8 in 'Unit8.pas' {PreFetchDlg},
  Unit10 in 'Unit10.pas' {LockCacheDlg},
  Unit18 in 'Unit18.pas' {PlayAudioTIDlg},
  Unit15 in 'Unit15.pas' {PlayAudio10Dlg},
  Unit16 in 'Unit16.pas' {PlayAudio12Dlg},
  Unit17 in 'Unit17.pas' {PlayAudioMSFDlg},
  Unit11 in 'Unit11.pas' {ReadLongDlg},
  Unit9 in 'Unit9.pas' {Read10Dlg},
  Unit14 in 'Unit14.pas' {ModeSenseRecoverEXDlg},
  Unit13 in 'Unit13.pas' {ModeSenseMediumEXDlg},
  Unit19 in 'Unit19.pas' {ModeSenseDeviceEXDlg},
  Unit20 in 'Unit20.pas' {ModeSenseAudioEXDlg},
  Unit21 in 'Unit21.pas' {EnumDevicesDlg};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TSelfTestDlg, SelfTestDlg);
  Application.CreateForm(TReadCaPMDlg, ReadCaPMDlg);
  Application.CreateForm(TStartStopDlg, StartStopDlg);
  Application.CreateForm(TSeek10Dlg, Seek10Dlg);
  Application.CreateForm(TReadSubchannelDlg, ReadSubchannelDlg);
  Application.CreateForm(TReadTocDlg, ReadTocDlg);
  Application.CreateForm(TPreFetchDlg, PreFetchDlg);
  Application.CreateForm(TLockCacheDlg, LockCacheDlg);
  Application.CreateForm(TPlayAudioTIDlg, PlayAudioTIDlg);
  Application.CreateForm(TPlayAudio10Dlg, PlayAudio10Dlg);
  Application.CreateForm(TPlayAudio12Dlg, PlayAudio12Dlg);
  Application.CreateForm(TPlayAudioMSFDlg, PlayAudioMSFDlg);
  Application.CreateForm(TReadLongDlg, ReadLongDlg);
  Application.CreateForm(TRead10Dlg, Read10Dlg);
  Application.CreateForm(TModeSenseRecoverEXDlg, ModeSenseRecoverEXDlg);
  Application.CreateForm(TModeSenseMediumEXDlg, ModeSenseMediumEXDlg);
  Application.CreateForm(TModeSenseDeviceEXDlg, ModeSenseDeviceEXDlg);
  Application.CreateForm(TModeSenseAudioEXDlg, ModeSenseAudioEXDlg);
  Application.CreateForm(TEnumDevicesDlg, EnumDevicesDlg);
  Application.Run;
end.