🚀 go-pugleaf

Uter [TeamD] wrote:
>>  procedure GetPackageInfo(Module: HMODULE; Param: Pointer;
>>    var Flags: Integer; InfoProc: TPackageInfoProc);
> 
> 
> I don't have an HModule for the second (failed) bpl.  I need to know what's
> in it because I can't load it.
> 
> This is a very simplified example of what I hope to be able to accomplish...
> 
> for i := 0 to FilesFoundNamesStringList.Count - 1 do
> begin
>   try
>     LoadPackage(FilesFoundNamesStringList[i]);
>   except
>     on E: EPackageError do     // invalid package
>     begin
>       // i wish this next function existed..
>       // it would take the file name of an unloaded module and
>       // it would return something useful to
>       // be used in the next function
>       APackageInfoRecord :=
> GetExportedStuffFromPackage(FilesFoundNamesStringList[i]);
> 
>       // this would take the info record and iterate the
>       // list of loaded modules to find a matching one
>       if
> FindSimilarModuleAndDecideWhichIsOlderAndLoadTheNewOne(APacakgeInfoRecord)
> then
>         RenameFile(FilesFoundNamesStringList[i],
>           FilesFoundNamesStringList[i] + '.InvalidPackageFile');
>     end
>     else  // package intialization failed
>     begin
>       E.Message := 'Module initialization failed: ' +
> FilesFoundNamesStringList[i]
>         ' with message: ' + E.Message
>     end;
>   end;
> end;
> 
> 
>>There are many other package functions in there that may be of use to
>>you.
>>Also, enter "packages" into the Delphi Help. :)
> 
> 
> Such abuse!  I'm deeply hurt.  <g>
> 
> I've already looked at the package functions thank you very much. :)
> 
> I know something like this must be possible because I can view the exports
> with tdump or QuickView.
> 
> --
> Mark Lauter
> 
> 

Mark,

Packages are nothing more than sophisticated DLL's.  You can use the 
LoadLibrary API function to return an instance pointer - your HMODULE 
argument.

If this is an unacceptable solution, download the delphi source to a PE 
file analysis tool, and extract the bits you need to go through the 
Exports section.

Regards,
Scott