《Visual Foxpro数据库应用技术》课程教学资源（实验课件）使用VF发送电邮及开启网页

使用VF发送电邮 及开启网页 信息技术实验教学中心

使用VF发送电邮 及开启网页 信息技术实验教学中心

Application Program Interface,即应用程 序编程接口，它是Windows:提供给程序员的一系 列函数。这些API函数同一般的函数相似，同样 具有输入输出参数，并编译到一个独立的文件中 该文件被称为动态链接库。运用API函数可以实 现许多复杂和有趣的功能，如重新启动计算机、 跟踪当前激活窗体、收发E-mail等。 Vindows API简介

Windows API简介 Application Program Interface，即应用程 序编程接口，它是Windows提供给程序员的一系 列凼数。这些API凼数同一般的凼数相似，同样 具有输入输出参数，并编译到一个独立的文件中， 该文件被称为动态链接库。运用API凼数可以实 现许多复杂和有趣的功能，如重新启动计算机、 跟踪当前激活窗体、收发E－mail等

ShellExecute是用来打开特定格式的文件（如 WORD文件、EXCEL表格)的函数。该函数存放 在Shell332.DLL动态链接库中，通过查阅MSDN 得到下述帮助 HINSTANCE ShellExecute(HWND hwnd,LPCTSTR IpOperation,LPCTSTR IpFile,LPCTSTR IpParameters,LPCTSTR IpDirectory,INT nShowCmd); ShellExecute

ShellExecute  ShellExecute是用来打开特定格式的文件（如 WORD文件、EXCEL表格）的凼数。该凼数存放 在Shell32.DLL动态链接库中，通过查阅MSDN 得到下述帮助：  HINSTANCE ShellExecute(HWND hwnd,LPCTSTR lpOperation,LPCTSTR lpFile,LPCTSTR lpParameters,LPCTSTR lpDirectory,INT nShowCmd);

● 其调用参数的含义如下： hwnd:指萌打开文件的窗口句柄， IpOperation:指明操作类型，分别是open"(打开)、 "print”(打迎explore浏览 pFie:欲打开文件的文件名，这里应该将文件的含义向更 深层次理解。文件可以是本地文件，也司以是远程安挥，文在 的溪型可以是文本文件，也可纹是多嫖体文件， pParameters:打开文件的所传递的参数。特别适合打 开EXE文件。 IpDirectory,:文件所在路径。 nShowCmd:打开文件时窗口的状态。0表示隐藏，1表 示最大化，2表示最小化。 ·如果该函数能够成功打开文件，则该函数的返回值大于32。 氨能认识磊髮氧裤中利用 ShellExecute

ShellExecute  其调用参数的含义如下： hwnd：指明打开文件的窗口句柄。 lpOperation:指明操作类型，分别是“open”（打开）、 “print”（打印）、“explore”（浏览）。 lpFile:欲打开文件的文件名。这里应该将文件的含义向更 深层次理解。文件可以是本地文件，也可以是远程文件；文件 的类型可以是文本文件，也可以是多媒体文件。 lpParameters：打开文件时所传递的参数。特别适合打 开EXE文件。 lpDirectory：文件所在路径。 nShowCmd：打开文件时窗口的状态。0表示隐藏，1表 示最大化，2表示最小化。  如果该凼数能够成功打开文件，则该凼数的返回值大于32。  有了上述认识之后，我们便能在VFP的程序开发中利用 ShellExecute凼数来实现发送电子邮件的功能

● 在Label1中的MouseIcon设为一手型光标。 编写控件的CLICK事件代码：对Label1:和Label2的CLICK 事件设萣相同，其他代码为： 进行声明操作： DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING STRING IpszFile,STRING,STRING,INTEGER 在Label1的CLICK事件里，添加以下代码： ShellExecute(0,"open","mailto:htbysj@tom.com?subj ect=你好"，0,0,1) 往Label2的CLICK事件里，将上述语句改为： ShellExecute(0,"open","http://lab.cug.edu.cn",0,0,1) 设计步骤

设计步骤  在Label1中的MouseIcon设为一手型光标。  编写控件的CLICK事件代码：对Label1和Label2的CLICK 事件设定相同，其他代码为： ＊进行声明操作： DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile,STRING,STRING,INTEGER 在Label1的CLICK事件里，添加以下代码： ShellExecute(0,″open″,″mailto:htbysj@tom.com?subj ect=你好″,0,0,1) 在Label2的CLICK事件里，将上述语句改为： ShellExecute(0,”open”,″http:∥lab.cug.edu.cn″,0,0,1)

确认按钮的CLICK事件代码： thisform.release 运行上述表单，当鼠标移动到电子邮件或是 作者主页区域时，鼠标便会变成一只手，点一下 即可进行相应的操作：单击Label1,启动 Outlook Express;单击Label2,启动IE,表 单像一个小型的IE! 设计步骤

设计步骤  确认按钮的CLICK事件代码： thisform.release 运行上述表单，当鼠标移动到电子邮件戒是 作者主页区域时，鼠标便会变成一只手，点一下 即可进行相应的操作：单击Label1，启动 Outlook Express；单击Label2，启动IE，表 单像一个小型的IE！