If App.PrevInstance Then End End If End Sub 用DDE实现窗体防止运行多个实例并传递命令 上网的朋友一定都用过网络蚂蚁(Net Ants)的吧?不知你在使用过程中有没有注意过,那就是如果你想调动两个“蚂蚁”为您效力是不可能的——它总会把新运行的关闭。这点在VB中很容易实现: Private Sub Form_Load() If App.PrevInstance Then MsgBox "你已经运行这个应用程序了" End ' 退出新运行的程序 End If End Sub 这样如果你运行这个程序后在运行它,它会弹出一个消息框并拒绝再