Включен ли автозапуск CD

Советы » CD-ROM » Включен ли автозапуск CD

procedure

TForm1.SetCDAutoRun(AAutoRun: Boolean); const

DoAutoRun: array

[Boolean] of

Integer = (0, 1); var

Reg: TRegistry; begin

try

Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if

Reg.KeyExists('SystemCurrentControlSetServicesClassCDROM') then

begin

if

Reg.OpenKey('SystemCurrentControlSetServicesClassCDROM', False) then

Reg.WriteBinaryData('AutoRun', DoAutoRun[AAutoRun], 1); end

finally

Reg.Free; end

; ShowMessage('Your settings will take effect on the next reboot of Windows.'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com