如何在pb中打开某文件给用户看

[AMDfuns]

我现在正在做一个文档管理程序，需要将某个文件打开，给用户看，希望打开的操作由操作系统来完成，例如当打开一个*.doc文件时，如果机器上装了word 就用word打开，如果没有，操作系统弹出打开方式对话框。如何实现这种功能？
最好有源代码。谢谢。

[xys2003]

string docname, named

integer value

value = GetFileOpenName("Select File", &

+ docname, named, "DOC", &

+ "Text Files (*.TXT),*.TXT," &

+ "Doc Files (*.DOC),*.DOC")

IF value = 1 THEN FileOpen(docname)

[Li_Dinosaur]

你用API打开吧，ShellExtcute()。在Shell32.dll里面。

如果你要方便的话，我发一个DLL给你，我讲你怎么调用。

[AMDfuns]

谢谢Li_Dinosaur(朋友)，
我的email 是：[e-mail]

[jimmyxc]

shellexecute(0,"open","c:\temp.log","","",1)

[jimmyxc]

function long ShellExecute(long hwnd,string strop,string strfile,string strparm,string strdict,int ncmd) library "shell32.dll"
//function long ShellExecute(long hwnd,string strop,string strfile,long strparm,string strdict,int ncmd) library "shell32.dll"