开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 磁盘/存储 > SCSI/ASPI > 查看源码
TCDBDEMO.DPR
资源名称：tcdrom.zip　[点击查看]
上传用户：jzxjwgb
上传日期：2007-01-06
资源大小：64k
文件大小：2k
源码类别：

SCSI/ASPI

开发平台：

Delphi

TCDBDEMO.DPR：源码内容
  1. program TCdBdemo;
  3. uses
  4.   Forms,
  5.   Unit1 in 'Unit1.pas' {Form1},
  6.   TASPIDEV in '..Taspidev.pas',
  7.   Tcdbasic in '..Tcdbasic.pas',
  8.   Unit2 in 'Unit2.pas' {AboutBox},
  9.   Unit3 in 'Unit3.pas' {SelfTestDlg},
  10.   Unit4 in 'Unit4.pas' {ReadCaPMDlg},
  11.   Unit5 in 'Unit5.pas' {StartStopDlg},
  12.   Unit6 in 'Unit6.pas' {Seek10Dlg},
  13.   Unit7 in 'Unit7.pas' {ReadSubchannelDlg},
  14.   Unit12 in 'Unit12.pas' {ReadTocDlg},
  15.   Unit8 in 'Unit8.pas' {PreFetchDlg},
  16.   Unit10 in 'Unit10.pas' {LockCacheDlg},
  17.   Unit18 in 'Unit18.pas' {PlayAudioTIDlg},
  18.   Unit15 in 'Unit15.pas' {PlayAudio10Dlg},
  19.   Unit16 in 'Unit16.pas' {PlayAudio12Dlg},
  20.   Unit17 in 'Unit17.pas' {PlayAudioMSFDlg},
  21.   Unit11 in 'Unit11.pas' {ReadLongDlg},
  22.   Unit9 in 'Unit9.pas' {Read10Dlg},
  23.   Unit14 in 'Unit14.pas' {ModeSenseRecoverEXDlg},
  24.   Unit13 in 'Unit13.pas' {ModeSenseMediumEXDlg},
  25.   Unit19 in 'Unit19.pas' {ModeSenseDeviceEXDlg},
  26.   Unit20 in 'Unit20.pas' {ModeSenseAudioEXDlg},
  27.   Unit21 in 'Unit21.pas' {EnumDevicesDlg};
  29. {$R *.RES}
  31. begin
  32.   Application.Initialize;
  33.   Application.CreateForm(TForm1, Form1);
  34.   Application.CreateForm(TAboutBox, AboutBox);
  35.   Application.CreateForm(TSelfTestDlg, SelfTestDlg);
  36.   Application.CreateForm(TReadCaPMDlg, ReadCaPMDlg);
  37.   Application.CreateForm(TStartStopDlg, StartStopDlg);
  38.   Application.CreateForm(TSeek10Dlg, Seek10Dlg);
  39.   Application.CreateForm(TReadSubchannelDlg, ReadSubchannelDlg);
  40.   Application.CreateForm(TReadTocDlg, ReadTocDlg);
  41.   Application.CreateForm(TPreFetchDlg, PreFetchDlg);
  42.   Application.CreateForm(TLockCacheDlg, LockCacheDlg);
  43.   Application.CreateForm(TPlayAudioTIDlg, PlayAudioTIDlg);
  44.   Application.CreateForm(TPlayAudio10Dlg, PlayAudio10Dlg);
  45.   Application.CreateForm(TPlayAudio12Dlg, PlayAudio12Dlg);
  46.   Application.CreateForm(TPlayAudioMSFDlg, PlayAudioMSFDlg);
  47.   Application.CreateForm(TReadLongDlg, ReadLongDlg);
  48.   Application.CreateForm(TRead10Dlg, Read10Dlg);
  49.   Application.CreateForm(TModeSenseRecoverEXDlg, ModeSenseRecoverEXDlg);
  50.   Application.CreateForm(TModeSenseMediumEXDlg, ModeSenseMediumEXDlg);
  51.   Application.CreateForm(TModeSenseDeviceEXDlg, ModeSenseDeviceEXDlg);
  52.   Application.CreateForm(TModeSenseAudioEXDlg, ModeSenseAudioEXDlg);
  53.   Application.CreateForm(TEnumDevicesDlg, EnumDevicesDlg);
  54.   Application.Run;
  55. end.