Скачать: CL | DM;

Читаем PACKAGEINFO из EXE, BPL файлов   Найти похожие ветки 

← →
Vayrus   (2008-10-22 15:57) [0]

Здравствуйте уважаемые.
Как программно прочесть информацию из 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 ?

---

← →
clickmaker ©   (2008-10-22 18:25) [1]

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);

---

← →
Vayrus   (2008-10-22 20:02) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c