Class TCDEvents (unit CDEvents) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- Public declarations
************************** tCDEvents component
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);
property About : TAboutZifNabProperty
Published declarations
property AfterArrival : TDeviceChangeEvent
property AfterRemove : TDeviceChangeEvent
property Enabled : Boolean
property ID : Word
property Options : TCDOptions
FAbout : TAboutZifNabProperty;
Private declarations
fAfterArrival : TDeviceChangeEvent;
fAfterRemove : TDeviceChangeEvent;
FEnabled : Boolean;
fErrCode : longint;
FFlags : Longint;
FID : Word;
fOptions : TCDOptions;
FWindowHandle : HWND;
constructor Create(AOwner: TComponent);
Public declarations
************************** tCDEvents component
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);
property About : TAboutZifNabProperty
Published declarations
property AfterArrival : TDeviceChangeEvent
property AfterRemove : TDeviceChangeEvent
property Enabled : Boolean
property ID : Word
property Options : TCDOptions
FAbout : TAboutZifNabProperty;
Private declarations
fAfterArrival : TDeviceChangeEvent;
fAfterRemove : TDeviceChangeEvent;
FEnabled : Boolean;
fErrCode : longint;
FFlags : Longint;
FID : Word;
fOptions : TCDOptions;
FWindowHandle : HWND;