Class TCDEvents (unit CDEvents)

Inherits from

TComponent

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 : TAboutZifNabProperty

Published 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;



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 : TAboutZifNabProperty

Published 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;