delphi 判断DLL动态链接库是否可用

本文整理自网络，侵删。

 
这里只是演示代码：确保dll有这两个DllUnregisterServer DllRegisterServer
function RegisterServer(const aDllFileName: string; aRegister: Boolean): Boolean;
type
  TRegProc = function: HResult;
  stdcall;
const
  cRegFuncNameArr: array [Boolean] of PChar =
    ('DllUnregisterServer', 'DllRegisterServer');
var
  vLibHandle: THandle;
  vRegProc: TRegProc;
begin
  Result := False;
  vLibHandle := LoadLibrary(PChar(aDllFileName));
  if vLibHandle = 0 then Exit;
    @vRegProc := GetProcAddress(vLibHandle, cRegFuncNameArr[aRegister]);
  if @vRegProc <> nil then
    Result := vRegProc = S_OK;
  FreeLibrary(vLibHandle);
end;
 

相关阅读 >>

Delphi firedac,ado性能测试

Delphi屏蔽alt+tab键代码

Delphi剪切板-监视剪贴板

Delphi tadocommand 中文使用说明

Delphi html document接口获取网页中所有图片

Delphi获取内存及cpu信息的函数

Delphi线程中动态创建ado控件

Delphi 进程通讯之wm_copydata 发送程序（senddata.exe）

Delphi xe10 麦克风、摄像头操作

Delphi 判断表字段是否存在

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 判断DLL动态链接库是否可用