| Class TCDEvents (unit CDEvents) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);************************** tCDEvents component
| Functions |
procedure CloseDoor;
destructor Destroy;
function GetCDInfo(vWord:Word):String;
function GetVolumeName(vDrive:char): String;
function IsAudioCD(vDrive:char):Boolean;
procedure OpenDoor;
function GetDevice : word;
function GetFirstDriveLetter(unitmask:longint):char;
procedure SetDevice(aID : word);
procedure SetEnabled(value : Boolean);
procedure SetOptions(value : TCDOptions);
procedure WMDeviceChange(var Msg : TWMDeviceChange);
procedure WndProc(var Msg: TMessage);| Properties |
property About : TAboutZifNabProperty
property AfterArrival : TDeviceChangeEvent
property AfterRemove : TDeviceChangeEvent
property Enabled : Boolean
property ID : Word
property Options : TCDOptions| Events |
| Variables |
FAbout : TAboutZifNabProperty;
fAfterArrival : TDeviceChangeEvent;
fAfterRemove : TDeviceChangeEvent;
FEnabled : Boolean;
fErrCode : longint;
FFlags : Longint;
FID : Word;
fOptions : TCDOptions;
FWindowHandle : HWND;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
************************** tCDEvents component
| Functions |
procedure CloseDoor;
destructor Destroy;
function GetCDInfo(vWord:Word):String;
function GetVolumeName(vDrive:char): String;this code comes from Delphi Developer Support
function IsAudioCD(vDrive:char):Boolean;
procedure OpenDoor;
function GetDevice : word;~~~ MCI Commands ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~} (* very rudimentary implementation !!!
function GetFirstDriveLetter(unitmask:longint):char;Protected declarations
procedure SetDevice(aID : word);device successfully opened
procedure SetEnabled(value : Boolean);
procedure SetOptions(value : TCDOptions);
procedure WMDeviceChange(var Msg : TWMDeviceChange);
procedure WndProc(var Msg: TMessage);| Properties |
property About : TAboutZifNabPropertyPublished declarations
property AfterArrival : TDeviceChangeEvent
property AfterRemove : TDeviceChangeEvent
property Enabled : Boolean
property ID : Word
property Options : TCDOptions| Events |
| Variables |
FAbout : TAboutZifNabProperty;Private declarations
fAfterArrival : TDeviceChangeEvent;
fAfterRemove : TDeviceChangeEvent;
FEnabled : Boolean;
fErrCode : longint;
FFlags : Longint;
FID : Word;
fOptions : TCDOptions;
FWindowHandle : HWND;