, dette er et eksempel på, hvordan at /deaktiver cd - autorun for vinduer. //erklærer register i din bruger klausul,,, procedure setcdautorun (aautorun: boolean);,, konstant,, doautorun: system [boolesk] af heltal = (0,1), var., fo: tregistry;, begynder, prøv, fo: = tregistry. skabe;,, reg.rootkey: = hkey_local_machine;,, hvis reg. keyexists ('systemcurrentcontrolsetservicesclasscdrom), begynder, hvis reg. openkey ('systemcurrentcontrolsetservicesclasscdrom, falske), begynder, reg. writebinarydata ('autorun, doautorun [aautorun] 1),,,,,,,,,,,,, endelig, re -g fri,,,,,, showmessage (deres indstilling vil være i kraft efter genstart vinduer. ');,,,,