---

Zwischenablage-1.jpg

Hallo,

ich versuche mit Lisp festzustellen ob ein bestimmtes Programm auf den Rechner schon aktiv ist, damit ich es mit Lisp nicht nochmals starte, und dann mehrere Instanzen laufen.
Ich habe hier im Forum einen alten Beitrag gefunden: ww3.cad.de/foren/ubb/Forum145/HTML/003776.shtml#000000
Dort steht der Code:

Code:

---

(defun Appli?(/ apps item lst meth1 meth2 WMI)
  (setq WMI (vlax-create-object "WbemScripting.SWbemLocator")
        meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil)
        meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_Process"))
  (vlax-for item meth2
    (setq lst (append lst (list (vlax-get item 'CommandLine))))
  )
  (vlax-release-object WMI)
  (vlax-release-object meth1)
  (vlax-release-object meth2)
  (vl-remove nil lst)
)

---

Wenn ich den Code ausgeführt habe, steht unter *LAST-VALUE* im Überwachungsfenster eine Liste mit allen aktiven Programmen: (siehe Bild)
So weit ist das ja super, aber ich weiß nicht wie ich da einen Eintrag suchen kann
Für ein bisschen Hilfe wäre ich sehr dankbar!

So etas wie, wenn der Eintrag "*wop*" vorhanden ist dann ....

Gruß
Ludger

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

versuchen Sie z.B.:

Code:

---

(setq runningApps (Appli?))
(defun lstmatch (lst pattern)
(or
  (vl-remove-if-not '(lambda (x) (wcmatch x pattern)) lst)
)
)
; now:
(PRINT (lstmatch runningApps "*acax.exe*"))
(PRINT (lstmatch runningApps "*wop*"))

---

V.Michl, www.cadstudio.cz - www.cadforum.cz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

(if
(setq revliste(vl-remove nil
(mapcar '(lambda(x)
        (if(wcmatch x "*mipr*")
          x
          )
          )
            (appli?)
)))
(prin1 revliste)
(princ "\nNix dabei")
)

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die schnelle Antwort, klappt wunderbar.
Mit meinem Wissen über Lisp hätte ich das nicht hinbekommen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo VMichl dir auch vielen Dank,
ich nehme an das funktioniert auch, aber irgenwie habe ich das nicht in meinen Code eingebaut bekommen.
Da habe ich die Lösung von CadWiesel  genommen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Achten Sie bitte auch auf die Groß- und Kleinschreibung.
Siehe https://www.cadforum.cz/cadforum_en/how-to-check-if-a-specific-application-or-process-is-running-tip12306

V.Michl, www.cadstudio.cz - www.cadforum.cz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für den Tipp (Groß & Kleinschreibung)
Ist mir beim Testen dann auch aufgefallen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oder aus DosLib:

Zitat:

---

dos_processes
Returns a list of processes, or tasks, running on the system.

--------------------------------------------------------------------------------

Syntax
(dos_processes [T])

Parameters
T

If specified, a fully qualified path to the running process is returned. Otherwise, just the filename is returned.

Returns
A list of running processes if successful.

nil on error.

Example
Command: (dos_processes)

("smss.exe" "csrss.exe" "winlogon.exe" "services.exe" "lsass.exe" "Ati2evxx.exe" "svchost.exe" "svchost.exe" "svchost.exe" "S24EvMon.exe" "svchost.exe" "svchost.exe" "ccSetMgr.exe" "SPBBCSvc.exe" "ccEvtMgr.exe" "spoolsv.exe" "DefWatch.exe" "mdm.exe" "RegSrvc.exe" "ZCfgSvc.exe" "Ati2evxx.exe" "svchost.exe" "Rtvscan.exe" "1XConfig.exe" "wdfmgr.exe" "ccApp.exe" "VPTray.exe" "type32.exe" "point32.exe" "ctfmon.exe" "alg.exe" "svchost.exe" "explorer.exe" "devenv.exe" "RoboHTML.exe" "notepad.exe" "mspdbsrv.exe" "hh.exe" "dexplore.exe" "acad.exe" "AdskCleanup.0001" "AdskScSrv.exe" "wmiprvse.exe" "WSCommCntr1.exe")

---

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

schön Peter das du 'ne Antwort hast. Jetzt brauchen wir nur noch die passende Frage

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP