Как достать бывшее содержимое *.DFM файла из откомп. *.EXE

← →
KAGE © (2004-01-15 12:46) [0]

Подскажите plz как достать бывшее содержимое DFM-файла (описание формы) из откомпелированного exe-шника Delphi.

← →
Amoeba © (2004-01-15 12:51) [1]

Есть такая бесплатная программа ResourceHacker:
http://www.users.on.net/johnson/resourcehacker/
Скачай, установи, и будет тебе счастье.

← →
AKul © (2004-01-15 12:52) [2]

Утилитой просмотра/редактирования ресурсов.

← →
Amoeba © (2004-01-15 12:54) [3]

> AKul © (15.01.04 12:52) [2]
> Утилитой просмотра/редактирования ресурсов.

ResourceHacker как раз для этого и предназначен, причем заточен под Delphi

← →
Serge © (2004-01-15 12:57) [4]

Используй DeDe

← →
AKul © (2004-01-15 13:02) [5]

> Amoeba © (15.01.04 12:54) [3]

> ResourceHacker как раз для этого и предназначен, причем
> заточен под Delphi

Я знаю.
Просто когда я отсылал это сообщение, еще ни одного ответа не было.

← →
Amoeba © (2004-01-15 13:04) [6]

> Serge © (15.01.04 12:57) [4]
> Используй DeDe

IMHO не в тему.
А зачем? Ему же нужно описание формы, а не код (да еще на asm"е).
ResourceHacker - в данном случае это то, что надо. Содержимое DFM находится в разделе RC_DATA.

← →
Serge © (2004-01-15 13:14) [7]

>Amoeba © (15.01.04 13:04) [6]
При чем тут "да еще на asm"е" - в DeDe Вы случайно закладку Forms не пропустили взглядом

object Form1: TForm1 Left = 315 Top = 249 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = "Determinarea starii imprimantei fiscale" ClientHeight = 239 ClientWidth = 517 ***
Этот код появляется что в ResourceHacker что в DeDe

← →
Amoeba © (2004-01-15 13:16) [8]

ResourceHacker все же удобнее для работы с ресурсами, чем DeDe

← →
Карелин Артем © (2004-01-15 13:18) [9]

Любая программа для выдирания ресурсов пойдет. В дельфине по-моему тоже есть тако.

>Amoeba © (15.01.04 13:16) [8]
>ResourceHacker все же удобнее для работы с ресурсами, чем DeDe
А я и не спорю что лучше и удобнее - просто предложил :)

function ExtractDFM(ApplicationName, FormClassName: string): string; var AppHandle: THandle; ResStream: TResourceStream; ResultStream: TStringStream; begin Result := ""; AppHandle := LoadLibraryEx(PChar(ApplicationName), 0, LOAD_LIBRARY_AS_DATAFILE); if AppHandle = 0 then raise Exception.Create("Could not load application"); ResStream := nil; ResultStream := nil; try ResStream := TResourceStream.Create(AppHandle, FormClassName, RT_RCDATA); ResultStream := TStringStream.Create(""); ObjectBinaryToText(ResStream, ResultStream); Result := ResultStream.DataString; finally ResultStream.Free; ResStream.Free; FreeLibrary(AppHandle); end; end; (c) Peter Morris

Во-первых БОЛЬШОЕ СПАСИБО всем.
А от dfm нужно только содержание, т.е. само описание (текст). И нужно это в самой программе. (Программно).

Как достать бывшее содержимое *.DFM файла из откомп. *.EXE Найти похожие ветки

Как достать бывшее содержимое .DFM файла из откомп. .EXE Найти похожие ветки