Delphi World - Активизация или отключение автоматического проигрывания CD
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Активизация или отключение автоматического проигрывания CD

Оформил: 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 World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования