| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Читаем PACKAGEINFO из EXE, BPL файлов [D7, XP]

Vayrus ©   (2008-10-22 15:57:00) 

Здравствуйте уважаемые.
Как программно прочесть информацию из PACKAGEINFO подобно тому как это делают Restorator и PEExplorer. В справке вычитал, что надо юзать следующие функции:

function LoadPackage(const Name: string): HMODULE;
function GetPackageDescription(ModuleName: PChar): string;
procedure GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer; InfoProc: TPackageInfoProc);
procedure UnloadPackage(Module: HMODULE);

Ну так и не смог разобраться с GetPackageInfo, не могли Вы бы показать пример получения информации из PACKAGEINFO ?

---

Vayrus   (2008-10-22 20:02:00) [1]

clickmaker
спасибо, выручил :-)

---

clickmaker   (2008-10-22 18:25:00) [2]

procedure PackageInfoProc(const Name: string; NameType: TNameType; Flags: Byte; Param: Pointer);
begin
 // что-то делаем со свалившейся на нас инфой
end;

var
 hPack: HMODULE;
 Flags: Integer;

hPack := LoadPackage('vcl70.bpl');
GetPackageInfo(hPack, nil, Flags, PackageInfoProc);

---

Наверх