VFP中操作多种文件
(07/19/2000)
    做为一种数据处理软件,VFP在使用上的简洁是人所共知的。在使用VFP进行应用程序开以时,有时会涉及到一些非数据处理方面的内容,比如在VFP中打开WORD文档、EXCEL图表、利用OE收发,这些功能又恰恰是VFP的弱项。通常情况下,我们处理这些问题的方法是使用OLE(现称之为ActiveX)技术来完成。但是,在VFP中要熟练操作OLE对象,又是一件更麻烦的事情。拿用VFP接入互联网来说,你可以在VFP的表单中加入Microsoft Web浏览器控件,但是如果没有专业的技术文档,你要想顺利地使用浏览器控件,这基本上是不可能的。有没有一种更简单的办法来实现上述功能呢?有的。
  VFP提供了在应用程序中调用Windows API函数的功能。如果我们要在VFP程序中使用API函数,只需要在使用前先进行申明,告诉VFP你想调用的函数的基本情况。申明语句的语法如下:
  DECLARE [cFunctionType] FunctionName IN LibraryName [AS AliasName]
  [cParamType1 [@] ParamName1, cParamType2 [@] ParamName2,……]
  其中各参数的具体含义如下:
  cFunctionType:被调用函数的返值。它可以是SHORT、INTEGER、SINGLE、DOUBLE、LONG、STRING六个类型之一。学过VC编程的朋友对这些数据类型肯定不会陌生。
  FunctionName :调用函数的名称。它是大小写敏感的。
  LibraryName:调用函数的所在地。它一般是一DLL文件名。
  cParameterType1 [@] ParamName1, cParameterType2 [@] ParamName2, :当对函数的调用属带参调用时,就应该申明参数的类型及名称。
  其实,使用VFP操作其他类型的文件,你不妨把这项工作交给系统替你来完成。在SHELL32.DLL动态链接库中,有一ShellExecute函数,它负责打开文件的操作,查阅MSDN,我们能够得到下述帮助: 
怎样打开隐藏文件  HINSTANCE ShellExecute( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile,LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd);
  其调用参数的含义如下:
  hwnd:指明打开文件的窗口句柄。
  lpOperation:指明操作类型,分别是“open"(打开)、“print(打印)"、“explore(浏览)"
  lpFile:欲打开文件的文件名。这里应该将文件的含义向更深层次理解。文件可以是本地文件,也可以是远程文件。文件的类型可以要文本文件,也可能是多媒体文件。
  LpParameters:打开文件时所传递的参数。特别适合对EXE文件的打开。
  LpDirectory:文件所在路径。
  NShowCmd:打开文件时窗口的状态。0表示隐藏,1表示最大化,2表示最小化。
  如果该函数打开文件的操作的成功,则该函数的返回值大于32。该函数的返回值能够
为你调试程序提供很多有用的信息,详情请见MSDN内帮助文件。
  好,有了上面的认识,我们可以引入正题了。
  一、 在VFP中浏览网页。
  在VFP6.0提供了超级链接控件,使用该控件能够很简单地进入Internet。但是在VFP5中却没有此类控件,如果你想在VFP5中浏览互联网,只需在程序中添加如下代码:
  *进行申明操作:
  DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, STRING lpszFile, STRING, STRING, INTEGER
  *以最大化窗口方式打开IE,并进入在线影院ShellExecute(0,“open",“www.163film",0,0,1)
  二、 打开、打印WORD文档
  *若要打印文档,则将operate赋值为“print"
  operate=“open"
  *打开hello.doc文档
  ShellExecute(0,operate,“c:\my documents\hello.doc",0,0,1)
  三、 带参调用EXE文件
  *下列语句将运行记事本程序,并打config.sys进行编辑
  ShellExecute(0,“open",“",“config.sys",“c:\",1)
  四、 调用资源管理器
  *运行资源管理器查看C:盘内容
  ShellExecute(0,“explore",0,“c:\",0,1)
  五、在VFP中发送
  *发送一封主题为新年“进步”的信到abcd@efg ShellExecute(0,“open",“mailto:abcd@efg?subject=新年进步 ",0,0,1)
  以上便是ShellExecute常见的几种具体用途,怎么样,没想到在VFP中也能够这样容易地操作各种各样的文件吧!试试看,你肯定能够到ShellExecute更加多的用途。
  (四川 周鸣扬)