var
//用于保存类
CompClasses: TList;
ClassesNoIcon: TList;
procedure MyRegisterComponentsProc(const aPage: string;
const aComponentClasses: array of TComponentClass);
var
I: Integer;
begin
for I := Low(aComponentClasses) to High(aComponentClasses) do
CompClasses.Add(aComponentClasses[I]);
end;
procedure MyRegisterNoIconProc(const aComponentClasses: array of TComponentClass);
var
I: Integer;
begin
for I := Low(aComponentClasses) to High(aComponentClasses) do
ClassesNoIcon.Add(aComponentClasses[I]);
end;
procedure GetPackageUnits(
const Name: string;
NameType: TNameType;
Flags: Byte;
Param: Pointer);
begin
if (NameType = ntContainsUnit) then
//其实还应该检查一下Flags
TStrings(Param).Add(Name);
end;