How to check, if a CD-Recorder is available? (WinXP)

Previous  Top  Next

    
 

 

 

Code:

{....}

 

uses Registry;

 

{....}

 

function HasCDRecorder: Boolean;

var

reg: TRegistry;

begin

reg := TRegistry.Create;

try

   // set the the Mainkey,

   reg.RootKey := HKEY_CURRENT_USER;

   // Open a key

   reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning', False);

   // Check if the Key exists

   Result := reg.ValueExists('CD Recorder Drive');

   // Close the key

   reg.CloseKey;

finally

   // and free the TRegistry Object

   reg.Free;

end;

end;

 

// Example:

procedure TForm1.Button1Click(Sender: TObject);

begin

if HasCDRecorder then

   ShowMessage('CD-Recorder available.')

else

   ShowMessage('CD-Recorder NOT available.');

end;

 

©Drkb::01407

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php