adminysh

[系统应用] delphi中实现dll文件自动注册

type   

      TDllRegisterServer=function:HResult;   stdcall;


 



procedure   RegisterDll(DllName   :string);   

  var   

      h:HModule;   

      Ocx:TDllRegisterServer;   

  begin   

      h   :=   0;   

      try   

          h   :=   LoadLibrary(PChar(DllName));   

          @Ocx:=GetProcAddress(H,'DllRegisterServer');   

          Ocx;   

      except   

          ShowWarning('注册'   +   DllName   +   '失败!请检查该文件是否存在。');   

      end;   

      FreeLibrary(H);   

  end;   


 红色部分,必须是dll中存在的函数,可以用viewdll 工具查看 dll 函数列表



#1楼
发帖时间:2013-9-22   |   查看数:0   |   回复数:0
游客组