Exe voor je, hoe je een ontwerp van Delphi terug Exe.,, extractdfm (toepassing van de functie van de naam, formclassname: string: string);,, var, apphandle: aan resstream:tresourcestream;,,,,,,,,, resultstream:tstringstream; de resultaten: = ";,, apphandle:= LoadLibraryEx (pchar (certificaat), 0, load_library_as_datafile); en, als apphandle = 0 en de verbetering van de anomalie (" te creëren, niet geladen. "); resstream:= nul;,,,,,,,, resultstream:= nul; resstream:= tresourcestream creëren (apphandle, formclassname, rt_rcdata);,, resultstream:= tstringstream. (" "); het scheppen van objectbinarytotext (resstream,,,,, resultstream); de resultaten: = resultstream datastring;,, eindelijk.,,,,, resultstream. Vrijheid. Vrijheid;,, resstream. Freelibrary (apphandle);,,,,, einde.