ITPub博客

首页 > 应用开发 > IT综合 > ShellExcute API 在PB11中的使用

ShellExcute API 在PB11中的使用

原创 IT综合 作者:guoge 时间:2008-08-20 15:08:12 0 删除 编辑

最近在做一个统计程序,将数据查询出来保存至一个Excel文件后,想实现打开这个Excel文件。针对Excel文件的打开,可以使用OLE对象,同事也有一个通过查询注册表获取文件关联打开方式的代码。其实最简单的方式其实还是使用Windows的API ShellExcute

其在PB 中定义外部函数为:

Function Long ShellExecute(Long hwindow, String lpOperation, String lpFile, String lpParameters, String lpDirectory, Long nShowCmd) Library 'shell32.dll' Alias for ShellExecuteA

Function Long GetDesktopWindow() Library 'user32.dll'

在代码中为:

String ls_filename = "E:OpenExplorer1.XLS"

String ls_null

SetNull(ls_null)

ShellExecute(GetDesktopWindow(), ls_null, ls_filename , ls_null, ls_null, 0)

偏偏就是这么简单的例子,参照网上例子,我在PB11下花了一天时间也没搞定。如果ShellExecute成功执行的话,返回值应该>32 , 可是每次都返回值为2.

快下班的时候,我使用PB5和PB9测试了一下,相同的代码,都能正确执行。

现在就是很迷惑,问题出在哪里?难道是PB11的BUG ?

最后还是使用了同事通过查询注册表获取文件关联打开方式的方式,但觉得还是有点不优雅,如果Windows用户没有使用注册表的权限呢?

后记:

使用下面的定义:

Function long ShellExecute ( &

long hwnd, &

string lpVerb, &

string lpFile, &

string lpParameters, &

string lpDirectory, &

long nShowCmd &

) Library "shell32.dll" Alias For "ShellExecuteW"

可以在PB11下使用

[@more@]ShellExecute PB11

来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/9036/viewspace-1009212/ ,如需转载,请注明出处,否则将追究法律责任。

上一篇: Excel 美化要点
下一篇: XML 与Datawindow
请登录后发表评论 登录
全部评论

注册时间:2007-12-12

  • 博文量
    72
  • 访问量
    258685