Unit PackUnit

--------------------------------------------------------------------------// PackView - shows Package required libraries and contained units. // Generates package source code // // Alex G. Fedorov, 1997 // --------------------------------------------------------------------------//

Classes

TForm1 -

Functions

GetPkgDesc - to be added later
GetPkgFlags - -------------------------------------------------// Get Package Flags from PACKAGEINFO resource // -------------------------------------------------//
IsPackage - Global storage
PackageInfoProc - Public declarations

------------------------------------------// Callback procedure for GetPackageInfo // ------------------------------------------//

Types

Constants

Variables

Form1


Functions


function GetPkgDesc (Module : HModule) : String;

to be added later

function GetPkgFlags(Module : HModule) : Integer;

-------------------------------------------------// Get Package Flags from PACKAGEINFO resource // -------------------------------------------------//

function IsPackage (Module : HModule) : Bool;

Global storage

procedure PackageInfoProc (const Name: string; NameType: TNameType; Flags : Byte; Param: Pointer);

Public declarations

------------------------------------------// Callback procedure for GetPackageInfo // ------------------------------------------//


Types


Constants


Variables

Form1 : TForm1