,, hvordan man får en dfm tilbage fra en delphi udarbejdet exe.,, funktion extractdfm (applicationname, formclassname: string): string;,, var, apphandle: thandle;,, resstream: tresourcestream;,, resultstream: tstringstream;,, begynder, resultat: = "';,, apphandle: = loadlibraryex (pchar (applicationname), 0, load_library_as_datafile), hvis apphandle = 0, med undtagelse. skabe (blæse ikke belastning), resstream: = nul;,, resultstream: = nul;,,,, resstream: = tresourcestream. skabe (apphandle, formclassname, rt_rcdata);,, resultstream: = tstringstream. skabe (');,, objectbinarytotext (resstream, resultstream);,, resultat: = resultstream. datastring, endelig.,,, resultstream. gratis;,, resstream. gratis;,, freelibrary (apphandle);,,,,,,,