Activate / Deactivate the audio cd (AutoPlay)

 

…………………………

uses Registry ;

…………………………

 

Procedure CDAutoPlay ( SioNo : Boolean ) ;

Const

   DoPlay      : Array[ Boolean ] Of String = ( '' , 'play' ) ;

Var

   reg         : TRegistry ;

Begin

   Try

      reg := TRegistry.Create ;

      reg.RootKey := HKEY_LOCAL_MACHINE ;

      If reg.KeyExists ( 'Software\Classes\AudioCD\' ) Then

         If reg.OpenKey ( 'Software\Classes\AudioCD\Shell\' , FALSE ) Then

            If SioNo Then

               reg.WriteString ( '' , 'play' )

            Else

               reg.WriteString ( '' , '' ) ;

   Finally

      reg.Free ;

   End ;

End ;

 

Example :

 

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Begin

   CDAutoPlay ( FALSE ) ;

   CDAutoPlay ( TRUE ) ;

End ;