Dette er et eksempel på hvordan du aktiverer /deaktivere CD autorun for windows .//erklærer registret i ditt bruker clauseprocedure SetCDAutoRun (AAutoRun: Boolean); konst DoAutoRun: array [boolsk] av Integer = (0,1); Var Reg: TRegistry; begynne prøve Reg: = TRegistry.Create; Reg.RootKey: = HKEY_LOCAL_MACHINE; hvis Reg.KeyExists ('SystemCurrentControlSetServicesClassCDROM'), og start hvis Reg.OpenKey ('SystemCurrentControlSetServicesClassCDROM', USANN) da begynne Reg.WriteBinaryData ('AutoRun', DoAutoRun [AAutoRun], 1); slutt; slutt; endelig Reg.Free; slutt; ShowMessage ('Din innstilling vil være i kraft etter restart Windows.'); End; Anmeldelser