| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Windows Programm aktiv? (1150 / mal gelesen)
|
woppi Mitglied cnc-programmierung
Beiträge: 65 Registriert: 16.01.2009 Acad Architecture 2020
|
erstellt am: 08. Jul. 2019 12:34 <-- editieren / zitieren --> Unities abgeben:
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 |
VMichl Mitglied
Beiträge: 221 Registriert: 04.01.2001
|
erstellt am: 08. Jul. 2019 13:43 <-- editieren / zitieren --> Unities abgeben: Nur für woppi
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 08. Jul. 2019 13:43 <-- editieren / zitieren --> Unities abgeben: Nur für woppi
|
woppi Mitglied cnc-programmierung
Beiträge: 65 Registriert: 16.01.2009 Acad Architecture 2020
|
erstellt am: 08. Jul. 2019 14:36 <-- editieren / zitieren --> Unities abgeben:
|
woppi Mitglied cnc-programmierung
Beiträge: 65 Registriert: 16.01.2009 Acad Architecture 2020
|
erstellt am: 08. Jul. 2019 14:39 <-- editieren / zitieren --> Unities abgeben:
|
VMichl Mitglied
Beiträge: 221 Registriert: 04.01.2001
|
erstellt am: 08. Jul. 2019 15:26 <-- editieren / zitieren --> Unities abgeben: Nur für woppi
|
woppi Mitglied cnc-programmierung
Beiträge: 65 Registriert: 16.01.2009 Acad Architecture 2020
|
erstellt am: 08. Jul. 2019 15:31 <-- editieren / zitieren --> Unities abgeben:
|
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3849 Registriert: 15.10.2003
|
erstellt am: 08. Jul. 2019 15:43 <-- editieren / zitieren --> Unities abgeben: Nur für woppi
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 |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 09. Jul. 2019 09:05 <-- editieren / zitieren --> Unities abgeben: Nur für woppi
|