Topic: detect if file is open..

[Andrea]

Hi all..

I'm trying to know how can I detect if a txt file is running under notepad.

I mean...

Code: [Select]

(startapp "notepad" filehere)
at this point you can delete the file if you want..
so i need to do something like..

Code: [Select]

(waitfor filehere is not present to any notepad editor be4 continue the routine..)
is this possible ?

[Andrea]

ok I found something..

Code: [Select]

(acet-sys-spawn 1 "notepad" editedfile)
is this a good way ?

[Patrick_35]

I am there almost and I continue to seek, but veiled already a beginning of result

Code: [Select]

(setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
(setq meth1 (VLAX-INVOKE WMI 'ConnectServer nil nil nil nil nil nil nil nil))
(setq meth2 (vlax-invoke meth1 'ExecQuery (strcat "SELECT DisplayName,State FROM Win32_Service WHERE State = 'Running'")))
(vlax-for item meth2
  (terpri)
  (princ (vlax-get item 'DisplayName))
)
(vlax-for item meth2
  (terpri)
  (princ (vlax-get item 'Name))
)
@+

[Guest]

What about DOS_ATTRIB?  Or do you not want to rely on a 3rd party app?

[LE]

There are two functions one made by Tony Tanzillo and another by Dale Fugier - Over here:

http://discussion.autodesk.com/thread.jspa?messageID=1169940


Have fun

[Patrick_35]

Yes, I find it

Code: [Select]

(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)
)
@+

[Andrea]

hmm... :kewl:

interesting...

I like DOSlib...ODCL...and any other 3rtd party tooll...
but if it possible to do it without it.....why not ?

thanks. all...