当前位置:首页 > 开发 > Web前端 > 前端 > 正文

pb自动注册ole控件

发表于: 2011-05-28   作者:isiqi   来源:转载   浏览次数:
摘要: pb自动注册ole控件 默认分类 2011-02-28 11:32:05 阅读50 评论0 字号:大中小订阅 方法一:1.手工注册OCX控件 将该控件随程序一起发布,然后,将此文件拷到windows\system,或者直接放在本运行目录,然后执行dos命令,run( "regsvr32 *.ocx ") *表示具体的文件。然后写注册表,将控件注册标志置为1,在程序开始运

pb自动注册ole控件

默认分类 2011-02-28 11:32:05 阅读50 评论0 字号:订阅

方法一:
1.手工注册OCX控件
将该控件随程序一起发布,然后,将此文件拷到windows\system,或者直接放在本运行目录,然后执行dos命令,run( "regsvr32 *.ocx ")
*表示具体的文件。然后写注册表,将控件注册标志置为1,在程序开始运行时,先检查该标志,是否需要进行注册

2.自动注册OCX控件
在OCX控件中一般都包含一个DLLRegisterServer函数,可以用此函数来实现OCX控件自动注册。

例如:我们要在应用中自动注册ActiveMovie控件,首先声明外部函数:
Function Long DllRegisterServer() LIBRARY "amovie.ocx "
然后在脚本中调用此函数:
DLLRegisterServer()
注意:不能保证此方法对所有OCX控件都适用!

方法二:
1、在DOS或Windows命令行下运行:regsvr32 ocxname.OCX 注册
2、用Install Shield,在里面选“Self-Registered”,安装程序将自动注册。
3、在PB应用程序中注册:
函数声明:
Function long DllRegisterServer() Library "ocxname.OCX "
调用:
LONG ll_RC
ll_RC = DllRegisterServer()
 
方法三:
  为了扩展应用程序的功能,许多系统都使用了或多或少的ActiveX控件,这些控件必须在系统中注册后才能够使用。所以分发PowerBuilder应用程序时,必须将系统所使用到的这些ActiveX控件一起分发到用户所使用的计算机上,并且注册它们,只有这样系统才能继续使用这些控件。
  本文将提供三种实现方案,供读者选择使用。
  方法一:在InstallShield中使用程序对控件进行注册

  InstallShield提供了一套编程语言,语法规则与C++语言非常类似,使用很容易掌握。选中“Scripts”页,你就可以看到安装程序实际执行的源代码,通过添加代码可以实现许多功能。要注册控件必须先将控件所需文件拷贝到目标计算机上,所以必须选择适当的位置添加注册语句。SetupRegistry()函数就是在文件复制完毕后进行系统注册的地方,所以在这里注册控件最合适。

  function SetupRegistry()
    NUMBER nRootKey, nResult;
    STRING szProgram, szCmdLine, szMsg;
    STRING szHkey;
    STRING szKey, szClass, szNumName, szNumValue;
  begin
    nResult = CreateRegistrySet(″″ );
  //注册程序中用到的OCX控件
  szProgram = ″Regsvr32 /s″;
  //假设我们将Myocx.ocx文件复制到〈COMMONFILES〉\My Shared下
  szCmdLine = COMMONFILES^″\\My Shared\\Myocx.ocx″;
  //给执行文件路径加上引号
  LongPathToQuote (szCmdLine, TRUE);
  //执行生成的命令:例如Regsvr32 /s ″C:\ Program Files\Common Files\My Shared″。
  if (LaunchAppAndWait(szProgram, szCmdLine, WAIT) < 0) then
    MessageBox(″MyAnimateX 控件注册失败!″, SEVERE);
  end if;
   return nResult;
  end;

方法四:用注册表的方法实现
  大家知道,一般安装程序结束后,为了使系统可以运行,经常需要重新启动计算机,这是由于安装程序修改了注册表或者一些系统文件(Autoexec.bat等),必须重新启动才能生效。注册表中有这样一个主键,专门用于存放一些只运行一次的程序,存放在这里的一些执行命令只是在Windows系统启动时运行一次,之后便被清空,所以取名为RunOnce:

  HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce,所以我们可以在InstallShield中的注册表编辑器中在该主键下添加要执行的代码,来完成控件的注册,如上图所示。

  注意,此方法必须保证安装程序弹出“是否重新启动计算机”的对话框,这样才能保证用户知道必须重启后才能正常使用本系统。
  

方法五:在PB程序中实现
  安装程序只需负责将OCX拷贝到相应路径下,PB程序必须可以得到这个路径,建议拷贝到Windows系统目录或者与执行文件同目录下。
  具体代码:
  //首先定义API函数,如果OCX控件在与执行文件同目录下,使用GetCurrentDirectory函数;如果OCX控件放在系统目录下,使用GetSystemDirectory函数。
  Function ulong GetCurrentDirectory(ulong nBufferLength,ref string lpBuffer) Library ″kernel32.dll″ Alias for ″GetCurrentDirectoryA″
  Function uint GetSystemDirectory(ref string lpBuffer,uint uSize) Library ″kernel32.dll″ Alias for ″GetSystemDirectoryA″
  //在PB应用(Application)的Open事件,假设OCX控件在Windows系统目录下。
  string ls_PathName,ls_Command
  ulong ll_RequiredBufferSize
  ls_PathName=Space(255)
  ll_RequiredBufferSize = GetSystemDirectory(ls_PathName,255)
  IF ll_RequiredBufferSize = 0or ll_RequiredBufferSize > 255THEN
  //报错信息
  else
ls_Command= ″Regsvr32/s″+ ″~″″+ ls_PathName+ ″\Myocx.ocx″+ ″~″″
Run(ls_Command)
//....
End if

  Regsvr32后面的“/s”执行参数是为了隐藏注册成功消息框

pb自动注册ole控件

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

编辑推荐
第一 先connection 数据库 在database中 然后导出ini文件 然后修改下 然后使用application中定义 读
1.新建窗体w_webbrowser 2.插入控件 3.insert control 选择 微软的web浏览器 <img alt="PB中嵌
我好多年未曾回老家过年,去年带着老婆和宝宝一起回老家热热闹闹过了一个春节,回来一看博客已有一
背景: 在phpwind站点后台添加一个名为“广告管家”(广告管家为CNZZ的一款广告投放的应用)的应用
如果是安装的office2010就要装这个,如果是2007就不用装! http://download.microsoft.com/download/
一、AutoCompleteTextView的应用 private static final String[] autoStr = new String[] { "abb",
简介:根据用户输入文本框的内容在下方弹出一个完整Email列表供用户选择;用户可以按上下键进行选择
代码:/Files/zhuqil/AutoComplete.zip 介绍: 在WPF中缺少一个支持自动完成的控件,最接近的控件是
在一套分布式的online services系统中,各service通常不会放在一台服务器上,而是通过Zookeeper这样
在一套分布式的online services系统中,各service通常不会放在一台服务器上,而是通过Zookeeper这样
版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号