delphi 中如何实现dll文件自动注册。

Question

各位大虾：
   本人在编写delphi程序过程中需要引用一个dll文件,在设计阶段通过手动启用regsvr32.exe注册，请问有没有好方法让软件开始运行时自动注册！

Answer 1

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;