• На форуме с 3 декабря 2012г.
  • Сообщений: 155
  • Спасибо: 2

Тема: Запустить стороннее приложение

Наверняка обсуждалось... но я что-то не нашел. Вобщем мне надо по событию нажатия на кнопке запустит и открыть файл (AcrobatReader, DJVUreader и т.д.)
Как?

  • На форуме с 5 апреля 2007г.
  • Сообщений: 400
  • Спасибо: 3

Re: Запустить стороннее приложение

Shoorup пишет:

Наверняка обсуждалось... но я что-то не нашел. Вобщем мне надо по событию нажатия на кнопке запустит и открыть файл (AcrobatReader, DJVUreader и т.д.)
Как?

Есть несколько вариантов:
самый простой - запуск при помощи команды класса "командная строка"
использовать средства API : Set oApplication = CreateObject(****)

Ответ от Shoorup (изменено: Shoorup, 24 февраля 2015г. 14:16:15)

  • На форуме с 3 декабря 2012г.
  • Сообщений: 155
  • Спасибо: 2

Re: Запустить стороннее приложение

Как пользовать Windows API в TDMS увы не знаю. Если можно примерчик!

  • На форуме с 5 апреля 2007г.
  • Сообщений: 400
  • Спасибо: 3

Re: Запустить стороннее приложение

имел ввиду что то вроде такого :

  Set aWord = Nothing
  bCloseApp = False

  On Error Resume Next
    Set aWord = GetObject(, "Word.Application")
    If aWord Is Nothing Then 
      Set aWord = CreateObject("Word.Application")
      bCloseApp = True
    End If
  On Error GoTo 0
  If aWord Is Nothing Then Exit Sub
  aWord.Visible = False
  ' aWord.AutoRecover.Enabled = False 
  
  Set doc = aWord.Documents.Open(f.WorkFileName)
  Set pCollection = doc.CustomDocumentProperties
  For Each vPropertie In pCollection
    vPropertie.Value = GetFieldValue(vPropertie.Name, o)
  Next
  
  doc.Fields.Update
  doc.Save
  doc.Close
  If bCloseApp Then aWord.Quit

пример для ворда