delphi中採用bpl共享模塊的幾點釋疑

最新推荐文章于 2025-10-07 16:15:06 发布

原创

最新推荐文章于 2025-10-07 16:15:06 发布 · 1.9k 阅读

标签

#delphi #windows #initialization #module #integer

#api

收录于

本文探讨了在Delphi中使用BPL共享模块的一些关键点：LoadPackage和UnloadPackage的实现，同一应用程序加载BPL的实例处理，不同应用程序加载BPL的影响，以及全局变量在多个应用程序中的行为。解释了BPL如何类似Windows DLL处理，确保每个应用程序拥有独立的变量副本，避免冲突。

1. LoadPackage做了哪些事情？

LoadPackage的代碼可以從delphi的源碼(sysutils.pas)中找到

{ LoadPackage }

function LoadPackage(const Name: string): HMODULE;
begin
{$IFDEF MSWINDOWS}
Result := SafeLoadLibrary(Name); //這裡使用windows api LoadLibraryA來以加載一個標準的dll的方式來加載(bpl本身也是一個動態鏈接庫)
{$ENDIF}
if Result = 0 then
begin
    raise EPackageError.CreateResFmt(@sErrorLoadingPackage,
      [Name,
       {$IFDEF MSWINDOWS}SysErrorMessage(GetLastError){$ENDIF}

end;
try
    InitializePackage(Result); //這裡使用winton api GetProcessAddress來取得單元的initialization部分的地址，並執行他
except
{$IFDEF MSWINDOWS}
    FreeLibrary(Result);
{$ENDIF}
    raise;
end;
end;

{ UnloadPackage }

procedure UnloadPackage(Module: HMODULE);
begin