, ved anvendelse i forbindelse med en bestemt sag udvidelse.,, hvor er det?,, ansøgningerne i forbindelse med fil udvidelser er oplagret i vinduerne.for at få disse oplysninger, først skal vi hente "klasse", at en fil forlængelser tilhører.disse oplysninger kan findes på:,,, hkey_classes_root). ext. (forvalgt værdi),,,,, hvor ". ext" er sagen udvidelse vil du (som ". txt", "praksis", osv.).så får vi en kommando linjen, der anvendes til at åbne den slags sager.for at gøre det må vi hente data i henhold til, hkey_classes_root. klasse (shell. åben. - kommando) (forvalgt værdi),,,,, hvor "klasse" er filen klasse forlængelse tilhører.den snor, har normalt form,,, "d: en vej. appname. ext." "% 1" - muligheder,,,,,, hvor% 1 er en indikation af en art for dokumentet fil at åbne med anvendelsen, så bør vi finde dens stilling i snor og erstatte det med filnavn, vi ønsker at åbne.,,,,,, efter funktion, returnerer kommandolinjen for de associerede ansøgning om at åbne en documente fil:,,, anvender registret, vinduer, sysutils,,,,, funktion getassociation (denne docfilename: string): string;,, var, fileclass: string, tregistry, reg.,,, begynder, resultat: = ";,, fo: = tregistry. skabe (key_execute);,, reg.rootkey: = hkey_classes_root;,, fileclass: =";,, hvis openkeyreadonly (extractfileext (reg.cfilename), begynder, fileclass: = reg. readstring (');,, reg. closekey,,,,,,, hvis fileclass < > "så begynde, hvis reg. openkeyreadonly (fileclass +'), skal en åben. - kommando),, begynder, resultat: = reg. readstring (');,, reg. closekey,,,,,,,,, reg. fri,,,,,,