Mega Code Archive

 

Categories / Delphi / Multimedia

 

How to check, if a CD Recorder is available

Title: How to check, if a CD-Recorder is available? uses Registry; function HasCDRecorder: Boolean; var reg: TRegistry; begin reg := TRegistry.Create; try // set the the Mainkey, bestimmt den Hauptschl¨¹ssel reg.RootKey := HKEY_CURRENT_USER; // Open a key, den Schl¨¹ssel ?ffnen reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning', False); // Check if the Key exists, ¨¹berpr¨¹fen ob die Zeichenfolge existiert Result := reg.ValueExists('CD Recorder Drive'); // Close the key, Schl¨¹ssel schliessen reg.CloseKey; finally // and free the TRegistry Object, das TRegistry Objekt freigeben reg.Free; end; end; Usage Examples: procedure TForm1.Button1Click(Sender: TObject); begin if HasCDRecorder then ShowMessage('CD-Recorder available.') else ShowMessage('CD-Recorder NOT available.'); end;