#12003/1/14 11:00:08
ShellExecuteA是个好东东，我列举一二，供大家参考！
1、发邮件
Result:=ShellExecuteA (WindowHandle, "open", "Mailto:wjq@public.wh.hb.cn?Subject=邮件主题&Body=请输入邮件正文!", "", "", 1)
2、打开网页
Result:=ShellExecuteA (WindowHandle, "open", "http://www.wjqwh.com", "", "", 1)
3、打开文件夹
Result:=ShellExecuteA (WindowHandle, "open", "C:\WINDOWS\FONTS", "", "", 1)（窗口模式）
Result:=ShellExecuteA (WindowHandle, "explore", "C:\WINDOWS\FONTS", "", "", 1)（资源管理器模式）
4、打印文档
Result:=ShellExecuteA (WindowHandle, "print", "C:\WJQ.DOC", "", "", 1)
其中最后一个参数可取：0-隐藏；1-正常；2-最小化；3最大化
直接从shell32.dll中引入，参数类型分别为：long,string,string,string,string,long即可！
