vfp 9 中如何实现超级链接
vfp 9 中如何实现超级链接标签链接到指定的网页
如何实现打开邮件编写器
问题点数：20、回复次数：2Top
1 楼apple_8180（十豆三）回复于 2005-08-01 11:57:37 得分 20
1、
LOCAL loWebBrowser
loWebBrowser = CREATEOBJECT("InternetExplorer.Application")
loWebBrowser.Navigate("http://www.163.com")
loWebBrowser.Visible = .T.
loWebBrowser.FullScreen=.T. &&全屏
MESSAGEBOX('点击确定关闭IE',64,'信息提示')
loWebBrowser.Quit &&关闭
2、
* 声明ShellExecute函数
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,;
STRING lpszOP, ;
STRING lpszFile, ;
STRING lpszParams, ;
STRING lpszDir, ;
INTEGER fsshowcmd
* 声明GetDesktopWindow函数,该函数激活Windows桌面
DECLARE INTEGER GetDesktopWindow IN win32api
* 指定从Windows桌面上运行ShellExecute函数
HWND = GetDesktopWindow()
lpszOP = ""
* 指定ShellExecute操作的文件为mailto: qyjohn@letterbox.com
lpszFile = "mailto: qyjohn@letterbox.com"
lpszParams = ""
* 指定ShellExecute的缺省目录为C:\
lpszDir = "C:\"
fsshowcmd = 1
* 执行ShellExecute命令
LNRETURN = ShellExecute(HWND, lpszOP, lpszFile, lpszParams, lpszDir,fsshowcmd)Top
2 楼pwlxj（玖儿）回复于 2005-08-11 12:00:48 得分 0
感谢!Top
