Ejecución automática de cd

Ejecucion automatica de cd

Ejecucion automatica de cd : Multi-millones de consejos para hacer su vida mas facil.

en Este articulo se muestra como activar la ejecucion automatica de encendido / apagado de la unidad de CD.
procedure TForm1.SetCDAutoRun(AAutoRun:Boolean)
const
& nbsp & nbsp DoAutoRun : array[Booleano] of Integer = (0,1)
var
& nbsp & nbsp Reg:TRegistry
begin
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp Reg := TRegistry.Crear
& nbsp & nbsp & nbsp & nbsp Reg.RootKey := HKEY_LOCAL_MACHINE
& nbsp & nbsp & nbsp & nbsp si Reg.KeyExists ('System/CurrentControlSet/Services/Class/CDROM'), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si Reg.OpenKey ('System/CurrentControlSet/Services/Class/CDROM',FALSE) then
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Reg.WriteBinaryData('AutoRun',DoAutoRun[AAutoRun],1)
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp Reg.Libre
& nbsp & nbsp final
& nbsp & nbsp ShowMessage('Su configuracion se llevara a efecto el proximo reinicio de Windows.')
fin