Recuperar un dfm de tu exe

Recuperar un dfm de tu exe

Recuperar un dfm de tu exe : Multi-millones de consejos para hacer su vida mas facil.

Como obtener una DFM de regresar de un delphi EXE compilado.
funcion ExtractDFM(ApplicationName, FormClassName: string): string
var
& nbsp & nbsp AppHandle: THandle
& nbsp & nbsp ResStream: TResourceStream
& nbsp & nbsp ResultStream: TStringStream
begin
& nbsp & nbsp Resultado := '
& nbsp & nbsp AppHandle := LoadLibraryEx(PChar(ApplicationName), 0, LOAD_LIBRARY_AS_DATAFILE)
& nbsp & nbsp si AppHandle = 0, entonces
& nbsp & nbsp & nbsp & nbsp elevar la Excepcion.Create('no se Pudo cargar la aplicacion')
& nbsp & nbsp ResStream := nil
& nbsp & nbsp ResultStream := nil
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp ResStream := TResourceStream.Crear(AppHandle, FormClassName, RT_RCDATA)
& nbsp & nbsp & nbsp & nbsp ResultStream := TStringStream.Crear(')
& nbsp & nbsp & nbsp & nbsp ObjectBinaryToText(ResStream, ResultStream)
& nbsp & nbsp & nbsp & nbsp Resultado := ResultStream.DataString
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp ResultStream.Libre
& nbsp & nbsp & nbsp & nbsp ResStream.Libre
& nbsp & nbsp & nbsp & nbsp FreeLibrary(AppHandle)
& nbsp & nbsp final
fin