Hvordan få en DFM tilbake fra en Delphi kompilert EXE.function ExtractDFM (APPLICATION, FormClassName: string): string; Var AppHandle: THandle; ResStream: TResourceStream; ResultStream: TStringStream, begynner Resultat: = ''; AppHandle: = LoadLibraryEx (PChar (APPLICATION), 0, LOAD_LIBRARY_AS_DATAFILE); hvis AppHandle = 0 deretter heve Exception.Create ( 'Kunne ikke laste søknad'); ResStream: = null; ResultStream: = null; prøve ResStream: = TResourceStream.Create (AppHandle, FormClassName, RT_RCDATA); ResultStream: = TStringStream.Create ( ''); ObjectBinaryToText (ResStream, ResultStream); Resultat: = ResultStream.DataString; endelig ResultStream.Free; ResStream.Free; FreeLibrary (AppHandle); end, end,