![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Активизация или отключение автоматического проигрывания CDDelphi , Файловая система , CD-ROMАктивизация или отключение автоматического проигрывания CD
Оформил: DeeCo 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. Описание кода Код состоит из двух процедур:
Альтернативное решение Код использует реестр Windows для хранения настроек автоматического воспроизведения. Если вам предпочтительнее более современный подход, вы можете использовать функцию Windows API Вот пример:
В этом коде создается экземпляр интерфейса Обратите внимание, что это альтернативное решение требует Delphi XE2 или позднее, так как оно использует функцию Windows API. Статья описывает способ активации или отключения автоматического проигрывания CD с помощью программы на языке Delphi. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |