可以从获取当前过程的名称为开始你可以通过调用过程对象的GetCurrentProcess方法来达到这一目的这是一个公共的方法所以无需建立一个过程对象的实例
Dim strProcessName As String
strProcessName = DiagnosticsProcessGetCurrentProcessProcessName
下一步即为查找当前匹配的过程可以使用GetProcessesByName方法达到这一要求还有另一个过程是对象的静态方法它使用过程的名称返回所有的匹配过程
If DiagnosticsProcessGetProcessesByName( _
strProcessName)Length > Then
注释More than one instance was found
End If
如果这是程序的第一个运行结果则应该只有一个匹配过程如果能够找到多个运行结果那么一定是程序的多个版本在运行之中
当你想确认用户只运行程序的一个结果时这一方法非常有用