ShellExcute API 在PB11中的使用

最近在做一个统计程序，将数据查询出来保存至一个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博客 ” ，链接：http://blog.itpub.net/9036/viewspace-1009212/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/9036/viewspace-1009212/