Главная страницаОбратная связьКарта сайта

Активизация или отключение автоматического проигрывания 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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Активизация или отключение автоматического проигрывания CD", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info