在VFP中利用WN32API函数调用Outlook Express给你的程序建立发送邮件的链接
出处:网络

..... 利用WN32API函数我们可以在VFP程序中，通过Label标签或Command命令按
钮来达到调用由系统默认的邮件收发软件的目的，也就是建立所谓的链接功能，
在VFP代码中：

DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND, STRING,STRING; ........lpszFile,STRING ,STRING ,INTEGER
*申明ShellExecute函数
lpszFile='mailto:cfyns@163.net'
*设定你需要发送的E-mail
=ShellExecute(0,0,lpszFile , 0,0,1)
*调用ShellExecute函数

.....一执行=ShellExecute（），就会弹出书写E-mail的窗体。

在VFP中利用WN32API函数启动Explorer浏览器链接

lparameters tcUrl

tcUrl=iif(type('tcUrl')='C',tcUrl,'www.chenxu.net')
*设定你的网页

DECLARE INTEGER FindWindow IN WIN32API ;
string ,string CWINNAME
DECLARE INTEGER ShellExecute ;
in shell32.dll ;
INTEGER nWinhandle,;
STRING coperation,;
STRING cfilename,;
STRING cparameters,;
STRING cdirectory,;
INTEGER nshowwindow
*申明ShellExecute函数
=ShellExecute(FindWindow(0,_SCREEN.CAPTION),;
'OPEN',tcUrl,' ','C:\TEMP',0)
*调用ShellExecute函数

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明