Ein Dfm aus Ihrer Exe Wiederherstellen
Wie man ein DFM wieder aus einem Delphi kompiliert EXE.
Funktion ExtractDFM (ApplicationName, FormClassName: String): string;
var
AppHandle: THandle;
ResStream: TResourceStream;
ResultStream: TStringStream;
beginnen
Ergebnis: = '';
AppHandle: = LoadLibraryEx(PChar(ApplicationName), 0, LOAD_LIBRARY_AS_DATAFILE);
Wenn AppHandle = 0 then
Erhöhung Exception.Create konnte ('nicht Anwendung laden');
ResStream: = Nil;
ResultStream: = Nil;
versuchen Sie
ResStream: = TResourceStream.Create (AppHandle, FormClassName, RT_RCDATA);
ResultStream: = TStringStream.Create (');
ObjectBinaryToText (ResStream, ResultStream);
Ergebnis: = ResultStream.DataString;
Schließlich
ResultStream.Free;
ResStream.Free;
FreeLibrary(AppHandle);
Ende;
Ende;
Ein Dfm aus Ihrer Exe Wiederherstellen
Ein Dfm aus Ihrer Exe Wiederherstellen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Wie man ein DFM wieder aus einem Delphi kompiliert EXE.
Funktion ExtractDFM (ApplicationName, FormClassName: String): string;
var
AppHandle: THandle;
ResStream: TResourceStream;
ResultStream: TStringStream;
beginnen
Ergebnis: = '';
AppHandle: = LoadLibraryEx(PChar(ApplicationName), 0, LOAD_LIBRARY_AS_DATAFILE);
Wenn AppHandle = 0 then
Erhöhung Exception.Create konnte ('nicht Anwendung laden');
ResStream: = Nil;
ResultStream: = Nil;
versuchen Sie
ResStream: = TResourceStream.Create (AppHandle, FormClassName, RT_RCDATA);
ResultStream: = TStringStream.Create (');
ObjectBinaryToText (ResStream, ResultStream);
Ergebnis: = ResultStream.DataString;
Schließlich
ResultStream.Free;
ResStream.Free;
FreeLibrary(AppHandle);
Ende;
Ende;
Ein Dfm aus Ihrer Exe Wiederherstellen
By Wiezutun
Ein Dfm aus Ihrer Exe Wiederherstellen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.