procedureTForm1.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
;