如何确定一个单元是否已编译成Delphi程序？
我希望能够确定某个特定单元是否已编译成Delphi程序，例如，单元SomeUnitName是我的一些程序的一部分，而不是其他程序的一部分。我想要一个函数如何确定一个单元是否已编译成Delphi程序？,delphi,delphi-2007,Delphi,Delphi 2007,我希望能够确定某个特定单元是否已编译成Delphi程序，例如，单元SomeUnitName是我的一些程序的一部分，而不是其他程序的一部分。我想要一个函数 function IsSomeUnitNameInProgram: boolean; （这当然不是在SomeUnitName中声明的，因为在这种情况下，它将始终包含在内）如果单元已编译到程序中，则在运行时返回true，否则返回false 到目前为止，我的想法是使用jcl调试信息（从一个详细的映射文件编译），我基本上将其添加到我的所有程序中以确
function IsSomeUnitNameInProgram: boolean;
如果程序使用库，代码将检查始终链接的单元，如果存在库，则会将库名称、版权和指向库的链接添加到“关于”框中。单元名称被编译到“PACKAGEINFO”资源中，您可以在其中查找：
uses
SysUtils;
type
PUnitInfo = ^TUnitInfo;
TUnitInfo = record
UnitName: string;
Found: PBoolean;
end;
procedure HasUnitProc(const Name: string; NameType: TNameType; Flags: Byte; Param: Pointer);
begin
case NameType of
ntContainsUnit:
with PUnitInfo(Param)^ do
if SameText(Name, UnitName) then
Found^ := True;
end;
end;
function IsUnitCompiledIn(Module: HMODULE; const UnitName: string): Boolean;
var
Info: TUnitInfo;
Flags: Integer;
begin
Result := False;
Info.UnitName := UnitName;
Info.Found := @Result;
GetPackageInfo(Module, @Info, Flags, HasUnitProc);
end;
HasActiveX := IsUnitCompiledIn(HInstance, 'ActiveX');
（枚举所有可能对具有多个单元的可执行文件无效的单元，在这种情况下，您可以在SysUtils中解析实现，并编写自己的版本，在找到单元时停止枚举。）此函数将返回应用程序中包含的单元名称列表。在Delphi 2010中工作。未针对其他编译器进行验证
function UnitNames: TStrings;
var
Lib: PLibModule;
DeDupedLibs: TList<cardinal>;
TypeInfo: PPackageTypeInfo;
PInfo: GetPackageInfoTable;
LibInst: Cardinal;
u: Integer;
s: string;
s8: UTF8String;
len: Integer;
P: PByte;
begin
result := TStringList.Create;
DeDupedLibs := TList<cardinal>.Create;
Lib := LibModuleList;
try
while assigned( Lib) do
begin
LibInst := Lib^.Instance;
Typeinfo := Lib^.TypeInfo;
if not assigned( TypeInfo) then
begin
PInfo := GetProcAddress( LibInst, '@GetPackageInfoTable');
if assigned( PInfo) then
TypeInfo := @PInfo^.TypeInfo;
end;
if (not assigned( TypeInfo)) or (DeDupedLibs.IndexOf( LibInst) <> -1) then continue;
DeDupedLibs.Add( LibInst);
P := Pointer( TypeInfo^.UnitNames);
for u := 0 to TypeInfo^.UnitCount - 1 do
begin
len := P^;
SetLength( s8, len);
if len = 0 then Break;
Inc( P, 1);
Move( P^, s8[1], len);
Inc( P, len);
s := UTF8ToString( s8);
if Result.IndexOf( s) = -1 then
Result.Add( s)
end
end
finally
DeDupedLibs.Free
end
end;
函数单元名：t字符串；
变量
Lib：PLibModule；
重复数据库：TList；
TypeInfo:PPackageTypeInfo；
PInfo:GetPackageInfoTable；
利宾斯特：红衣主教；
u：整数；
s:字符串；
s8:UTF8String；
len：整数；
P:PByte；
开始
结果：=TStringList.Create；
重复数据库：=TList.Create；
Lib:=LibModuleList；
尝试
分配时（Lib）执行
开始
LibInst:=Lib^.Instance；
Typeinfo:=Lib^.Typeinfo；
如果未分配（类型信息），则
开始
PInfo:=GetProcAddress（LibInst，@getpackageinfo'）；
如果分配（PInfo），则
TypeInfo:=@PInfo^.TypeInfo；
结束；
如果（未分配（TypeInfo））或（重复数据库索引（LibInst）-1），则继续；
重复库添加（LibInst）；
P:=指针（TypeInfo^.UnitNames）；
对于u:=0到TypeInfo^.UnitCount-1 do
开始
len:=P^；
设定长度（s8，len）；
如果len=0，则断开；
公司(P,1),；
动议（P^，s8[1]，len）；
公司(P,len),；
s:=UTF8ToString（s8）；
如果Result.IndexOf（s）=-1，则
结果。添加（s）
结束
结束
最后
重复数据库。免费
结束
结束；
function IsSomeUnitNameInProgram: boolean;
var
UnitNamesStrs: TStrings;
begin
UnitNamesStrs := UnitNames;
result := UnitNamesStrs.IndexOf('MyUnitName') <> -1;
UnitNamesStrs.Free
end;
函数是someunitnameinprogram:boolean；
变量
单位名称标准：t字符串；
开始
UnitNamesStrs:=单元名称；
结果：=unitnamestrs.IndexOf（'MyUnitName'）-1；
免费的
结束；