Читаем 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
спасибо, выручил :-)

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