delphi 调用dll

Delphi 调用 DLL 的步骤如下：

1. 定义 DLL 函数的原型。

在 Delphi 中定义 DLL 函数的原型，需要使用 `external` 关键字，如下所示：

function MyDllFunction(Param1: Integer; Param2: PChar): Integer; external 'MyDll.dll';

其中，`MyDllFunction` 是 DLL 中的函数名，`Param1` 和 `Param2` 是函数的参数，`MyDll.dll` 是 DLL 的名称。

2. 加载 DLL。

使用 `LoadLibrary` 函数来加载 DLL，如下所示：

var
  hDll: THandle;
begin
  hDll := LoadLibrary('MyDll.dll');
  if hDll <> 0 then
  begin
    // DLL 加载成功
  end
  else
  begin
    // DLL 加载失败
  end;
end;

其中，`hDll` 是 DLL 的句柄，如果 `LoadLibrary` 函数返回 0，则表示加载 DLL 失败。

3. 调用 DLL 函数。

使用前面定义的 DLL 函数原型调用 DLL 函数，如下所示：

var
  ReturnValue: Integer;
begin
  ReturnValue := MyDllFunction(123, 'Hello');
end;

其中，`ReturnValue` 是 DLL 函数的返回值。

4. 卸载 DLL。

在使用完 DLL 后，需要使用 `FreeLibrary` 函数卸载 DLL，如下所示：

begin
  FreeLibrary(hDll);
end;

其中，`hDll` 是 DLL 的句柄。