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('System\CurrentControlSet\Services\Class\CDROM') then

 begin

 if Reg.OpenKey('System\CurrentControlSet\Services\Class\CDROM', 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;