Denne artikkelen viser hvordan du slår AutoRun on /off for CD drive.procedure TForm1.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 ( 'System \\ CurrentControlSet \\ Services \\ Class \\ CDROM') så hvis Reg.OpenKey ( 'System \\ CurrentControlSet \\ Services \\ Class \\ CDROM ", USANN) så Reg.WriteBinaryData (' AutoRun ', DoAutoRun [AAutoRun] ,1); endelig Reg.Free; slutt; ShowMessage ( 'Innstillingene trer i kraft neste omstart av Windows.'); End;