| Статистика |
|
Онлайн всего: 9 Гостей: 9 Пользователей: 0 |
|
Активизация или отключение автоматического проигрывания CD
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;
|
| Категория: CD-ROM | Добавил: Angel (06.07.2008)
|
| Просмотров: 312
| Рейтинг: 0.0/0 |
|
|
