| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 553 人关注过本帖
标题:在VFP中如何判断一个DLL是否已注册过
只看楼主 加入收藏
seel
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-7-31
结帖率:50%
收藏
 问题点数:0 回复次数:3 
在VFP中如何判断一个DLL是否已注册过
在CSDN下了一个例程,运行没问题,在编译时提示如下错误:
未知的 LOADLIBRARYA - 未定义
未知的 OCXREG - 未定义

系统为 win7+VFP9.0,  XP+VFP9.0 均提示此信息,望解答,谢谢。

例程见附件

Jmail.rar (172.34 KB)
搜索更多相关主题的帖子: 如何 信息 
2014-01-08 10:36
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
没有方法程序肯定通不过。表单中建立2个方法程序。分别是:LOADLIBRARYA,OCXREG,脚本代码分别是: “*”,星号。可试试。
2014-01-13 00:19
seel
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-7-31
收藏
得分:0 
以下是引用qingfameng在2014-1-13 00:19:24的发言:

没有方法程序肯定通不过。表单中建立2个方法程序。分别是:LOADLIBRARYA,OCXREG,脚本代码分别是: “*”,星号。可试试。

我还是贴上代码吧,呵呵

Lparameters pcOCX
Declare Integer LoadLibrary In kernel32 As "LoadLibraryA" String lpLibFileName
Local lhLib
lhLib = LoadLibraryA( pcOCX )
If (lhLib < 32) && HINSTANCE_ERROR
    Return "LoadLibrary("+pcOCX+")失败 - 找不到指定的模块。"
Endif
Declare Integer GetProcAddress In kernel32 Integer hModule,String lpProcName
lpRegProc = GetProcAddress(lhLib, 'DllRegisterServer')
If lpRegProc>0
    Declare Integer DllRegisterServer In &pcOCX As OcxReg
    lnRes = OcxReg()
    If lnRes=0
        Return "注册成功"
    Else
        Return "注册失败: DllRegisterServer 错误编号 "+Transform(lnRes)
    Endif
Else
    Return "注册失败: "+pcOCX+"找不到入口点"
Endif
2014-01-14 08:40
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
按2楼我的办法,经编译后,是成功的。已实验过。
2014-01-14 15:04
快速回复:在VFP中如何判断一个DLL是否已注册过
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022852 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved