Active DLL注册

procedure RegisterDll;
  try
   img:=CreateoleObject('sxImage.image');
  except
    RegisterDll;
    img:=CreateoleObject('sxImage.image');
  end;

procedure TForm1.RegisterDll;
type
 TDllRegisterServer=function:HResult; stdcall;
var
 h:HModule;
 Ocx:TDllRegisterServer;
begin
 h := 0;
 try
  h := LoadLibrary(PChar(path+'/wwwroot/main_ocx/sxImage.dll'));
  @Ocx:=GetProcAddress(H,'DllRegisterServer');
  Ocx;
 except
  Showmessage('注册sxImage.dll失败!'+#13+#10+'请检查../wwwroot/main_ocx/目录下该文件是否存在!');
  abort;
 end;
  FreeLibrary(H);
end;