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

设置焦点

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

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

这是一个开始。这将在立即窗口上打印正在运行的实例数。
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

是守门员马特。干杯
页: [1]
查看完整版本: 设置焦点