Désactiver l'exécution automatique de cd

Desactiver l'execution automatique de cd

Desactiver l'execution automatique de cd : Plusieurs milliers de conseils pour vous faciliter la vie.

Ceci est un exemple de comment activer / desactiver l'autorun du CD-rom pour windows.
// declaration de Registre dans votre clause uses
procedure SetCDAutoRun(AAutoRun:Boolean)
const
& nbsp & nbsp & nbsp DoAutoRun : array[Boolean] of Integer = (0,1)
var
& nbsp & nbsp & nbsp Reg:TRegistry
begin
& ! & ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & ! & ! & nbsp Reg := TRegistry.Creer
& ! & ! & ! & ! & ! & ! & ! & nbsp Reg.RootKey := HKEY_LOCAL_MACHINE
& ! & ! & ! & ! & ! & ! & ! & nbsp si Reg.KeyExists('SystemCurrentControlSetServicesClasscdrom'),
& ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si Reg.OpenKey('SystemCurrentControlSetServicesClasscdrom',FALSE)
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Reg.WriteBinaryData('AutoRun',DoAutoRun[AAutoRun],1)
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & ! & ! & nbsp Reg.Gratuit
& ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & nbsp ShowMessage('Votre reglage en effet apres le redemarrage de Windows.')
fin