开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
PackForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

PackForm.pas：源码内容
  1. unit PackForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ComCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Mask,
  8.   DBCtrls;
  10. type
  11.   TForm1 = class(TForm)
  12.     TreeView1: TTreeView;
  13.     DBEdit1: TDBEdit;
  14.     Chart1: TChart;
  15.     procedure FormCreate(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  22. var
  23.   Form1: TForm1;
  25. implementation
  27. {$R *.DFM}
  29. var
  30.   ContNode, ReqNode: TTreeNode;
  32. procedure ShowInfoProc (const Name: string;
  33.   NameType: TNameType; Flags: Byte; Param: Pointer);
  34. var
  35.   FlagStr: string;
  36. begin
  37.   FlagStr := ' ';
  38.   if Flags and ufMainUnit <> 0 then
  39.     FlagStr := FlagStr + 'Main Unit ';
  40.   if Flags and ufPackageUnit <> 0 then
  41.     FlagStr := FlagStr + 'Package Unit ';
  42.   if Flags and ufWeakUnit <> 0 then
  43.     FlagStr := FlagStr + 'Weak Unit ';
  44.   if FlagStr <> ' ' then
  45.     FlagStr := ' (' + FlagStr + ')';
  46.   with Form1.TreeView1.Items do
  47.     case NameType of
  48.       ntContainsUnit:
  49.         AddChild (ContNode, Name + FlagStr);
  50.       ntRequiresPackage:
  51.         AddChild (ReqNode, Name);
  52.     end;
  53. end;
  55. function ForEachModule (HInstance: Longint;
  56.   Data: Pointer): Boolean;
  57. var
  58.   Flags: Integer;
  59.   ModuleName, ModuleDesc: string;
  60.   ModuleNode: TTreeNode;
  61. begin
  62.   with Form1.TreeView1.Items do
  63.   begin
  64.     SetLength (ModuleName, 200);
  65.     GetModuleFileName (HInstance,
  66.       PChar (ModuleName), Length (ModuleName));
  67.     ModuleName := PChar (ModuleName); // fixup
  68.     ModuleNode := Add (nil, ModuleName);
  70.     // get description and add fixed nodes
  71.     ModuleDesc := GetPackageDescription (PChar (ModuleName));
  72.     ContNode := AddChild (ModuleNode, 'Contains');
  73.     ReqNode := AddChild (ModuleNode, 'Requires');
  75.     // add information if the module is a package
  76.     GetPackageInfo (HInstance, nil,
  77.       Flags, ShowInfoProc);
  78.     if ModuleDesc <> '' then
  79.     begin
  80.       AddChild (ModuleNode,
  81.         'Description: ' + ModuleDesc);
  82.       if Flags and pfDesignOnly = pfDesignOnly then
  83.         AddChild (ModuleNode, 'Design Only');
  84.       if Flags and pfRunOnly = pfRunOnly then
  85.         AddChild (ModuleNode, 'Run Only');
  86.     end;
  87.   end;
  88.   Result := True;
  89. end;
  91. procedure TForm1.FormCreate(Sender: TObject);
  92. begin
  93.   EnumModules(ForEachModule, nil);
  94. end;
  96. end.