Deshabilitar la ejecución automática de cd

Deshabilitar la ejecucion automatica de cd

Deshabilitar la ejecucion automatica de cd : Multi-millones de consejos para hacer su vida mas facil.

Este es un ejemplo de como habilitar / deshabilitar la ejecucion automatica de CD para windows.
// declarar Registro en la clausula uses
procedimiento SetCDAutoRun(AAutoRun:Boolean)
const
& nbsp & nbsp & nbsp DoAutoRun : array[Booleano] of Integer = (0,1)
var
& nbsp & nbsp & nbsp Reg:TRegistry
begin
& nbsp & nbsp & nbsp & nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Reg := TRegistry.Crear
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Reg.RootKey := HKEY_LOCAL_MACHINE
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si Reg.KeyExists('SystemCurrentControlSetServicesClasscdrom'), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si Reg.OpenKey('SystemCurrentControlSetServicesClasscdrom',FALSE) then
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Reg.WriteBinaryData('AutoRun',DoAutoRun[AAutoRun],1)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Reg.Libre
& nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp ShowMessage('Su configuracion efecto despues de reiniciar Windows.')
fin