Активизация или отключение автоматического проигрывания CD

Delphi , Файловая система , CD-ROM

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   Registry;

 procedure CDSetAutoPlay(SioNo: Boolean);
 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;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   {Activate  AutoPlay}
   CDSetAutoPlay(True);
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   {Deactivate Autoplay}
   CDSetAutoPlay(False);
 end;

Пример программирования на Delphi, демонстрирующий, как включать или отключать автоматическое воспроизведение CD с помощью настроек реестра Windows.

Описание кода

Код состоит из двух процедур: CDSetAutoPlay и двух обработчиков событий кнопок (Button1Click и Button2Click) на форме.

1. Процедура CDSetAutoPlay: Эта процедура принимает булев параметр SioNo, указывающий, нужно ли включить или отключить автоматическое воспроизведение.
   • Создается объект реестра Reg с помощью метода TRegistry.Create.
   • Устанавливается корневой ключ в HKEY_LOCAL_MACHINE.
   • Если существует ключ реестра Software\Classes\AudioCD\, то открывается подключ Shell\ и проверяется, является ли он доступным для записи.
   • Если SioNo равен True, то записывается строковое значение 'play' в реестр; иначе, удаляется значение (то есть отключается автоматическое воспроизведение).
   • Наконец, объект реестра освобождается с помощью метода Reg.Free.
2. Обработчики событий кнопок: Эти процедуры вызывают CDSetAutoPlay с различными значениями для SioNo.
   • Button1Click: Включает автоматическое воспроизведение, вызывая CDSetAutoPlay с True.
   • Button2Click: Отключает автоматическое воспроизведение, вызывая CDSetAutoPlay с False.

Альтернативное решение

Код использует реестр Windows для хранения настроек автоматического воспроизведения. Если вам предпочтительнее более современный подход, вы можете использовать функцию Windows API IExplorer::SetAutoplaySettings (доступна в Delphi XE2 и позднее) для управления автоматическим воспроизведением.

Вот пример:

uses
  ShellAPI;

procedure CDSetAutoPlay(SioNo: Boolean);
var
  Explorer: IExplorer;
begin
  Explorer := CreateOleObject(IExplorer) as IExplorer;
  Explorer.SetAutoplaySettings(0, SioNo, nil);
  Explorer := nil;
end;

В этом коде создается экземпляр интерфейса IExplorer и вызывается метод SetAutoplaySettings, чтобы включить или отключить автоматическое воспроизведение.

Обратите внимание, что это альтернативное решение требует Delphi XE2 или позднее, так как оно использует функцию Windows API.

Статья описывает способ активации или отключения автоматического проигрывания CD с помощью программы на языке Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: CD-ROM ::