Récupérer une dfm de votre exe

Recuperer une dfm de votre exe

Recuperer une dfm de votre exe : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour obtenir une DFM arriere a partir d'un delphi EXE compile.
fonction de ExtractDFM(ApplicationName, FormClassName: string): string
var
& nbsp & nbsp AppHandle: THandle
& nbsp & nbsp ResStream: TResourceStream
& nbsp & nbsp ResultStream: TStringStream
begin
& nbsp & nbsp Resultat := '
& nbsp & nbsp AppHandle := LoadLibraryEx(PChar(ApplicationName), 0, LOAD_LIBRARY_AS_DATAFILE)
& nbsp & nbsp si AppHandle = 0, alors
& ! & ! & ! & nbsp raise Exception.Creer ('impossible de charger l'application)
& nbsp & nbsp ResStream := nil
& nbsp & nbsp ResultStream := nil
& nbsp & nbsp essayer
& ! & ! & ! & nbsp ResStream := TResourceStream.Creer(AppHandle, FormClassName, RT_RCDATA)
& ! & ! & ! & nbsp ResultStream := TStringStream.Creer(')
& ! & ! & ! & nbsp ObjectBinaryToText(ResStream, ResultStream)
& ! & ! & ! & nbsp Resultat := ResultStream.DataString
& nbsp & nbsp enfin
& ! & ! & ! & nbsp ResultStream.Gratuit
& ! & ! & ! & nbsp ResStream.Gratuit
& ! & ! & ! & nbsp FreeLibrary(AppHandle)
& nbsp & nbsp fin
fin