捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:如何使程序在运行时自动注册ActiveX控件
newlinn 36835 2009/2/27 9:22:19
卸载用这个 "DllUnregisterServer"
forjoylee 36747 2009/2/11 15:11:26
调用regsvr32.exe就好了。
dwd_china 35868 2008/10/23 9:41:29
试试这个
function RegisterServer(const aDllFileName: string; aRegister: Boolean): Boolean;
type
  TRegProc = function: HResult; stdcall;
const
  cRegFuncNameArr: array[Boolean] of PChar = ('DllRegisterServer', 'DllUnregisterServer');
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;
zhan_guotai 20602 2006/1/3 17:51:10
把 OLERegister 改成如下方式 Delphi5 测试通过!注册没有问题!
卸载好象有问题,哪位知道,顺便告一声!

function OLERegister(sOleFileName: String; OleAction: Byte):Boolean;
const
  RegisterOle = 1; //注册
  UnRegisterOle = 0; //卸载
var
  hLibraryHandle: THandle; //由LoadLibray返回的DLL或OCX句柄
  pReg  : procedure;
begin
  Result := False;
  //打开文件,返回DLL或OCX句柄
  hLibraryhandle := LoadLibrary(PChar(SOleFileName));
  if (hLibraryHandle > 0) then //DLLakg OCX句柄正确
  try
    //返回注册或卸载函数指针
    if (OleAction = RegisterOle) then  //返回注册函数指针
      pReg :=GetProcAddress(hLibraryHandle,PChar('DllRegisterServer'))//GetProcAddress(hLibraryhandle,PChar('DLLRegisterServer'))
    else //返回卸载函数指针
      pReg:= GetProcAddress(hLibraryhandle,PChar('DLLUnRegisterServer'));
    if (@pReg <> nil) then //判断注册或卸载函数是否存在
    begin
        pReg;
        Result := True;
    end;
  finally
    FreeLibrary(hLibraryHandle); //关闭已打开的文件
  end;
end;
seadog_wang 20008 2005/12/14 15:56:56
DemoOcx := CreateOleObject('Demo.Demo')
DemoOcx := CreateOleObject('Demo.Demo')
是作什么用的
sstreet 19833 2005/12/9 23:58:05
好像不行,有没有可行的一种方法
hanxufeng 18356 2005/10/12 20:03:05
我用了,好象不行。
kingtao007 8184 2004/9/4 12:36:34
我路径和文件都是正确的,但却总提示不能注册,可能是有问题。
DemoOcx := CreateOleObject('Demo.Demo')
是作什么用的
vagrant 7510 2004/8/3 13:24:27
不好使,感覺有問題。。。
tim001 7502 2004/8/3 12:24:28
呵呵,昨天刚好看见VFP的,今天又收到DELPHI的,真好!
第一页 上一页 下一页 最后页 有 10 条纪录 共1页 1 - 10
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表