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
FinalizePackage(Module); //這裡執行單元的finalization部分的代碼
{$IFDEF MSWINDOWS}
FreeLibra