, denne artikel viser, hvordan til at vende autorun tænd /sluk for din cd - drev.,, procedure tform1. 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 ('system. currentcontrolset. tjenesteydelser. klasse. cdrom "), hvis reg. openkey ('system. currentcontrolset. tjenesteydelser. klasse. cdrom, falske), reg. writebinarydata ('autorun, doautorun [aautorun] 1), endelig, reg. gratis;,;, showmessage (deres indstillinger vil få virkning på den næste genstart af vinduer. ');,;,,,