用DDE实现窗体防止运行多个实例并传递命令
上网的朋友一定都用过网络蚂蚁（Net Ants）的吧？不知你在使用过程中有没有注意过，那就是如果你想调动两个蚂蚁为您效力是不可能的它总会把新运行的关闭。这点在VB中很容易实现：
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "你已经运行这个应用程序了"
End 注释： 退出新运行的程序
End If
End Sub
这样如果你运行这个程序后在运行它，它会弹出一个消息框并拒绝再次运行。这非常容易。
而蚂蚁程序的妙处就在于：在重复运行蚂蚁时它不仅拒绝运行，而且能把已经运行的蚂蚁激活，这样用上面的程序就无能为力了。但事实上实现拒绝运行并激活已运行的程序有多种方法：
1、用FindWindow函数得到已经运行窗体的句柄（HWND），然后用SetActiveWindow等API函数将其激活。其缺点也很明显，那就是没法传递参数。
2、用FindWindow函数得到已运行窗体的句柄后用SendMessage的方法给窗体传送一个自定义消息（附带参数），然后在窗体中...[ 查看全文 ]
