Определить Что Установлено

Тема в разделе "Lotus - Программирование", создана пользователем dimat, 25 янв 2012.

  1. dimat

    dimat Lotus team
    Lotus team

    Регистрация:
    31 июл 2008
    Сообщения:
    518
    Симпатии:
    0
    Всем привет!
    У некоторых пользователей установлен MS Office, а у некоторых OpenOffice.
    1. Какими способами возможно определить что установлено?
    2. Как открыть указанный файл в Excel или Calc?
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    под виндой

    1. Реестр (ключи)
    2. Попробовать создать сом-обьект мс оффиса и обработать ошибку

    открывать файл в винде - через Shell - тогда будет открываться в программе по умолчанию
     
  3. Yakov

    Yakov Гость

    Вот кусок кода, который делает, что надо. Указанный файл открывается той программой, которая ассоциирована с его типом.
    Код (Text):
        Private Sub openFile(fileName As String)
    Dim objShell As Variant
    Dim objFolder As Variant
    Dim objFolderItem As Variant
    Dim folder As String
    Dim file As String
    folder = Strleftback(fileName, "\")
    file = Strrightback(fileName, "\")
    Set objShell = CreateObject("Shell.Application")
    If objShell Is Nothing Then
    Print "shell object not created"
    Exit Sub
    End If
    Set objFolder = objShell.NameSpace((folder))
    If objFolder Is Nothing Then
    Print "no folder: " + folder
    Exit Sub
    End If
    Set objFolderItem = objFolder.ParseName(file)
    objFolderItem.InvokeVerbEx("Open")
    End Sub
     
  4. dimat

    dimat Lotus team
    Lotus team

    Регистрация:
    31 июл 2008
    Сообщения:
    518
    Симпатии:
    0
    Спасибо за ответы!
     
  5. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Yakov
    ого, а зачем если можно ещ' проще
    Код (LotusScript):
    Set WShell = CreateObject("WScript.Shell")
    ReturnCode = WShell.Run("C:\1.doc", 1, False)
     
Загрузка...

Поделиться этой страницей