PB中打开本地文件的四种方法的关键代码.rar

用run函数或调用API打开本地文件： run方法1：用运行某个EXE文件 string str_filelongname,str_filename GetFileOpenName("请选择运行的exe文件",str_filelongname,str_filename,"EXE","exe Files (*.exe),*.exe") Run(str_filelongname) run方法2：指定用某程序打开某文件。 RUN('"C:\Program Files\Office2007\EXCEL.EXE" "D:\CH桌面\测试.xlsx"') API方法1：适用于PB10以前版本 //在Global External Functions，定义录入： Function long ShellExecuteA (ulong hwnd,string lpOperation,string lpFile,string lpParameters,string lpDirectory,long nShowCmd) library "shell32.dll" //代码调用时写： string str_filelongname,str_filename GetFileOpenName("请选择打开的文件",str_filelongname,str_filename,"*","文档(*.*),*.*") String ls_null SetNull (ls_null) ShellExecuteA(Handle(Parent), ls_null, str_filelongname, ls_null,ls_null, 1) API方法2：用于PB10以后版本 //在Global External Functions，定义录入： Function long ShellExecuteW (ulong hwnd,string lpOperation,string lpFile,string lpParameters,string lpDirectory,long nShowCmd) library "shell32.dll" //代码调用时写： string str_filelongname,str_filename GetFileOpenName("请选择打开的文件",str_filelongname,str_filename,"*","文档(*.*),*.*") String ls_null SetNull (ls_null) ShellExecuteW(Handle(Parent), ls_null, str_filelongname, ls_null,ls_null, 1)