Enable/Disable CDROM Autorun  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 27/08/00

Tip accessed 464 times

 



 procedure 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);
   finally
   Reg.Free;
   end;
   ShowMessage('Your settings will take effect on the next reboot of Windows.');
 end;