• 全部
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

关于ocx的注册问题,在线等待

zihan 2003-07-17 03:33:08
我用vb做了一个ocx控键,但是注册的时候出现了问题,我直接在命令提示符里面输入regsvr32 *.ocx可以正常使用,但是我在程序里面调用外部程序的时候,即使用WinExec('regsvr32 *.ocx',SW_SHOW) 的时候,它已经弹出了注册成功的对话框,但是该控键确不能使用,重新在命令提示符里面注册就可以,于是我用api的方式注册,代码如下

RegisterActiveX('*.ocx',true)

但是还是不能够使用,跟上面的问题一样,不知道哪位知道怎么回事没有???谢谢
function RegisterActiveX(const DllName: string; DoReg: Boolean): Boolean;
type
TRegProc = function(): HResult;
const
RegProcNames: array [False..True] of PChar = ('DllRegisterServer', 'DllUnregisterServer');
var
ActiveXModule: HMODULE;
RegProc: TRegProc;
begin
Result := False;

ActiveXModule := LoadLibrary(PChar(DllName));
if ActiveXModule = 0 then
Exit;
RegProc := TRegProc(GetProcAddress(ActiveXModule, RegProcNames[DoReg]));
if not Assigned(RegProc) then
Exit;

Result := not Failed(RegProc());
end;
...全文
31 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zihan 2003-07-17
我不是要在ide中注册,我是要在其他电脑上使用了,自己的电脑上要用肯定没有问题了,
回复
tongdings 2003-07-17
楼主不能在IDE中注册ocx吗?
回复
fengjn 2003-07-17
呵呵,调用的函数不对,在delphi的demo中注册的例子,可以参考哦
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4875

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2003-07-17 03:33
社区公告
暂无公告