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 在vcl中显示一个非激活状态的窗口

Delphi mscomm1自动获取串口

Delphi写一个utf8编码格式的文本文件

Delphi 封装frame到dll文件

Delphi控件安装与删除

Delphi线程的创建、挂起、激活与终止

Delphi 图像识别技术（逐行扫描识别)

Delphi 用iisreset命令重启iis

Delphi 控制滚动条

Delphi 取得某一天所在的星期一及星期天

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

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