Cd Autorun

Cd Autorun

Cd Autorun : Plusieurs milliers de conseils pour vous faciliter la vie.

Cet article explique comment activer l'execution automatique on / off pour votre lecteur de CD-rom.
procedure TForm1.SetCDAutoRun(AAutoRun:Boolean)
const
& nbsp & nbsp DoAutoRun : array[Boolean] of Integer = (0,1)
var
& nbsp & nbsp Reg:TRegistry
begin
& nbsp & nbsp essayer
& ! & ! & ! & nbsp Reg := TRegistry.Creer
& ! & ! & ! & nbsp Reg.RootKey := HKEY_LOCAL_MACHINE
& ! & ! & ! & nbsp si Reg.KeyExists('System\CurrentControlSet\Services\Class\CDROM')
& ! & ! & ! & ! & ! & nbsp si Reg.OpenKey('System\CurrentControlSet\Services\Class\CDROM', FALSE)
& ! & ! & ! & ! & ! & ! & ! & nbsp Reg.WriteBinaryData('AutoRun',DoAutoRun[AAutoRun],1)
& nbsp & nbsp enfin
& ! & ! & ! & nbsp Reg.Gratuit
& nbsp & nbsp fin
& nbsp & nbsp ShowMessage('Vos parametres prendront effet au prochain redemarrage de Windows.')
fin