🚀 go-pugleaf

>   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