在PB中如何打开一个非執行文件

大家知道在PB中,有一个RUN()函数,可以运行一个指定的执行文件,如.EXE,.COM,.BAT等.但如果我们想打开一个非执行文件,
如.TXT,.DOC,.XLS等,就不能用RUN()函数了.如果我们希望打开这类文件时,系统能自动调用对应的应用程序,就可以使用如下方法:
在应用程序的Global External Functions中定义：
Function long ShellExecuteA (ulong hwnd, string lpOperation, string
lpFile, ＆ string lpParameters, string lpDirectory, long nShowCmd)
library “shell32.dll”
调用如下：
String ls_null
SetNull (ls_null)
ShellExecuteA(Handle(Parent), ls_null, “c:/doc/hello.txt”, ls_null,
ls_null, 1)