Lazarus LoadLibrary：DLL動態鏈接庫的載入和使用

本文將從以下幾個方面介紹Lazarus中LoadLibrary和FreeLibrary函數的使用方法：

一、簡介

LoadLibrary和FreeLibrary是Windows動態鏈接庫的核心函數，可通過調用這些函數，將DLL動態鏈接庫載入到應用程序中，並在完成操作後卸載該文件。在Lazarus環境中，為了方便使用Windows API中的相關功能，正確的使用這些函數至關重要。

二、LoadLibrary的使用方法

LoadLibrary函數可返回指定的動態鏈接庫的模塊句柄。使用這個函數可以動態的載入DLL文件，並把DLL中導出的變數和函數載入到進程空間中。

var
  librayHandle: TLibHandle;
begin
  librayHandle := LoadLibrary('MyDLL.dll');
  if libraryHandle <> nil then
  begin
    // do something
    FreeLibrary(librayHandle)
  end
  else
  begin
    writeln('Failed to load library.');
  end;
end;

上面的代碼演示了如何打開一個名為MyDLL.dll的DLL文件。如果文件被成功載入到進程中，它將返回一個非空的庫句柄。否則將列印錯誤消息。

三、FreeLibrary的使用方法

FreeLibrary函數可釋放指定的動態鏈接庫。如果在進程空間中仍存在該動態鏈接庫的函數或變數，則不能釋放該庫。如果此時釋放了該庫，則在進程中的任何試圖訪問該庫中的函數或變數的代碼，都將無法正常工作。

var
  librayHandle: TLibHandle;
begin
  librayHandle := LoadLibrary('MyDLL.dll');
  if libraryHandle <> nil then
  begin
    // do something
    FreeLibrary(librayHandle)
  end
  else
  begin
    writeln('Failed to load library.');
  end;
end;

上面的代碼演示了如何使用FreeLibrary函數釋放已經被載入的MyDLL.dll。

四、GetProcAddress的使用方法

GetProcAddress函數按名稱返回某個動態鏈接庫中導出函數的地址。也就是說，可以使用這個函數根據名稱獲取動態鏈接庫中的函數指針。

var
  MyFunc: function(a, b: Integer): Integer;
  libraryHandle: TLibHandle;
begin
  libraryHandle := LoadLibrary('MyDLL.dll');
  if libraryHandle <> nil then
  begin
    @MyFunc := GetProcAddress(libraryHandle, 'MyFunc');
    if Assigned(MyFunc) then
    begin
      writeln(MyFunc(1,2));
    end
    else
    begin
      writeln('Failed to get function pointer.');
    end;
    FreeLibrary(librayHandle)
  end
  else
  begin
    writeln('Failed to load library.');
  end;
end;

上面的代碼演示了如何使用GetProcAddress函數得到名為MyFunc的函數的指針，並使用該指針調用函數。

五、注意事項

在Lazarus中使用LoadLibrary和FreeLibrary函數需要注意以下幾點：

1、函數返回的TLibHandle類型為指向TLibHandleRec的指針，不能使用integer或者pointer等替代。

2、庫的名稱不能含路徑，因為路徑可能會改變。

3、如果名字不完全匹配，可能無法訪問某些函數，因為Windows API對大小寫敏感。

4、使用 LoadLibrary， FreeLibrary和 GetProcAddress 函數時，必須在前面添加 Windows 單元。

最後，Lazarus中LoadLibrary和FreeLibrary函數的使用方法在某些時候比較複雜，但是如果堅持做好輸入檢查和完善的錯誤處理，可以在其他函數中嵌入使用它獲得良好的效果。