Class TForm1 (unit ShowCD_)

Inherits from

TForm

If problems: Add the path to AlbReg.pas to the project

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);

Registry Root is HKey_Local_Machine.

procedure FormCreate(Sender: TObject);


Properties

Events

Variables

BitBtn1 : TBitBtn;


CheckBox1 : TCheckBox;


Edit2 : TEdit;


Label2 : TLabel;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);

Registry Root is HKey_Local_Machine. The Key is enum\???i\*\*. That fits to enum\esdi\*\' and to enum\scsi\*\*. The last two asterixes are subkeys to the drive an its characteristics. Look in the registry with c:\windows\REGEDIT or with the LookReg program supplied as another demo of the AlbReg unit. The Condition is 'class=CDROM', as the variable class contains the string 'CDROM' in the registry informations of cdroms. CurrentDriveLetterAssignment is the variable that show the drive letter. AutoInsertNotification is one property of drives with media change. When on, Windows95 detects new CDs in the drive and starts the greeting program. (This is important for CR Recorders: AutoInsertNotification must be off, as the writing process must not be interrupted by anything


procedure FormCreate(Sender: TObject);


Properties


Events


Variables


BitBtn1 : TBitBtn;


CheckBox1 : TCheckBox;


Edit2 : TEdit;


Label2 : TLabel;