使用API函数ShellExecute可以调用外部默认的浏览器和电子邮件工具来打开一个超链接和和发送一个电子邮件。

为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：

-------------------------------------------
在程序中加入超链接和发送电子邮件
-------------------------------------------
洪恩在线 求知无限
-------------------------------------------
程序说明：
例子使用ShellExecute函数，调用默认的外部浏览器
和电子邮件工具来浏览网页和发送电子邮件。
-------------------------------------------
【VB声明】

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

[阅读全文]

借助API函数CallWindowProc,DragAcceptFiles,DragQueryFile,DragFinish同样可以实现文件从资源管理器EXPLORE到应用程序的拖放，另一种方法是采用OLE拖放，可以参照趣味编程栏目的相关内容。下面我们一起来看看程序编写的过程。

对于每个需要引用的API函数，我们需要先在程序中说明，如果只在某一窗体内声明并使用它，则把它声明为Private，而如果在模块中声明，且需要在整个工程内使用它，则需要把它声明为Public。

Public Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc&, ByVal hWnd&, ByVal Msg&, ByVal wParam&, ByVal lParam&)
Public Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd&, ByVal fAccept&)
Public Declare Function DragQueryFile& Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop&, ByVal iFile&,ByVal lpszFile$, ByVal cch&)
Public Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop&)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hWnd&,ByVal nIndex&, ByVal dwNewLong&)

[阅读全文]