设置焦点

A_LOTA_NOTA · 发表于 2007-8-17 19:56:21

这能做到吗？
http://www.theswamp.org/index.php?topic=18241.msg222653#msg222653

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Keith · 发表于 2007-8-17 20:44:44

你可以，但它并不像听起来那么简单。要检查 AutoCAD 实例的数量，您需要使用 API 调用，然后您需要能够引用应用程序才能执行建议执行的操作。这并非不可能，但有些复杂。

A_LOTA_NOTA · 发表于 2007-8-17 23:27:16

谢了Keith

Bryco · 发表于 2007-8-20 13:08:45

这是一个开始。这将在立即窗口上打印正在运行的实例数。

copy

Public Sub HowManyAcads()
    Debug.Print TallyPrograms("acad.exe")
End Sub
Private Function TallyPrograms(ByRef EXEName As String)
    Dim cmd As String
    cmd = "SELECT * FROM Win32_Process WHERE Name='" & EXEName & "'"
    TallyPrograms = GetObject("winmgmts:").ExecQuery(cmd).Count
End Function

A_LOTA_NOTA · 发表于 2007-8-20 20:51:20

是守门员马特。干杯

设置焦点

发表回复

精选推荐