Автор | Сообщение |
|
| постоянный участник
|
Пост N: 1538
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.08.10 02:07. Заголовок: Проверка наличия в системе ОФИСА !
Всем привет ! Подскажите, как можно проверить наличие ОФИСОВ под различные версии Windows ? Для Ms Word можно попытаться открыть через OLE свой файл. Если не открылся, значит нет его на компе ! Для Ms Excel тоже пройдет данный вариант. А как быть с OpenOffice: Write & Calc ??? Подскажите пожалуйста надежное решение.
|
|
|
Ответов - 39
, стр:
1
2
All
[только новые]
|
|
|
| Администратор
|
Пост N: 1635
Зарегистрирован: 23.05.05
|
|
Отправлено: 31.08.10 08:27. Заголовок: Вместо oObj := TOle..
Вместо oObj := TOleAuto():new(cServer) надо вызывать: oObj := NewOle(cServer) и проверять: if oObj # nil ... Static func NewOle(cServer) Local oServer, hObj Begin sequence #ifdef __XHARBOUR__ hObj := CreateOleObject( cServer ) if OleError() == 0 oServer := TOleAuto():new( hObj ) #else hObj := Win_OleCreateObject( cServer ) if ! Empty( hObj ) oServer := Win_OleAuto():new( hObj ) #endif #ifdef __HARBOUR__ oServer:cClassName := cServer #endif endif end if oServer == nil MsgInfo('Ошибка инициализации OLE:' + cServer) endif Return oServer
|
|
|
|
| постоянный участник
|
Пост N: 1543
Зарегистрирован: 12.09.06
|
|
Отправлено: 07.09.10 19:48. Заголовок: Подскажите, а как мо..
Подскажите, а как можно узнать установлен ли WinRar или WinZip в системе ?
|
|
|
|
| постоянный участник
|
Пост N: 446
Зарегистрирован: 27.01.07
|
|
Отправлено: 07.09.10 21:10. Заголовок: Проверить реестр, а ..
Проверить реестр, а потом папку, указанную в реестре.
|
|
|
|
| постоянный участник
|
Пост N: 1544
Зарегистрирован: 12.09.06
|
|
Отправлено: 07.09.10 22:14. Заголовок: PSP пишет: Проверит..
PSP пишет: А как ?
|
|
|
|
| постоянный участник
|
Пост N: 447
Зарегистрирован: 27.01.07
|
|
Отправлено: 08.09.10 09:09. Заголовок: HKEY_LOCAL_MACHINE..
HKEY_LOCAL_MACHINE\Software\<ИмяСофта> (для 7-Zip: HKEY_LOCAL_MACHINE\Software\7-Zip) В Harbour для этого есть функция Win_RegGet(). Про xHarbour не подскажу, но тоже должна быть. Можно еще регистрацию расширения имени файла проверить в HKEY_CLASSES_ROOT. Запусти RegEdit, посмотри. Все станет ясно.
|
|
|
|
| |
Пост N: 1
Зарегистрирован: 27.07.10
|
|
Отправлено: 08.09.10 11:16. Заголовок: Проверка наличия в системе ОФИСА !
Консольное приложение (на скорую руку) в MiniGUI, проверяющее наличие 7-Zip цитата: | #include "MiniGUI.ch" Procedure Main Local cPath7z Open registry oReg key HKEY_LOCAL_MACHINE Section 'Software\7-Zip' Get value cPath7z Name 'Path' of oReg Close registry oReg Cls If !Empty( cPath7z ) If File( cPath7z + '\7z.exe' ) ? '7-zip installed' Else ? '7-zip NO installed' Endif Else ? 'No 7-zip' Endif Wait Return |
| Думаю, примерно так же можно поступить с WinRAR и WinZip.
|
|
|
|
| постоянный участник
|
Пост N: 1545
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.09.10 11:58. Заголовок: Спасибо БОЛЬШОЕ ! :..
Спасибо БОЛЬШОЕ ! Буду делать.
|
|
|
|
| постоянный участник
|
Пост N: 2299
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.08.12 12:25. Заголовок: Подскажите пожалуйст..
Подскажите пожалуйста, как можно узнать версию ОФИСА ? Т.е. мне нужно различать Excel 2003 и 2007 на хХарборе !
|
|
|
|
| |
Пост N: 92
Зарегистрирован: 16.12.08
|
|
Отправлено: 21.08.12 13:02. Заголовок: Андрей попробуй пора..
Андрей попробуй поработать с реестром. Ветка: HKEY_CLASSES_ROOT\Word.Application\CurVer или HKEY_CLASSES_ROOT\Excel.Application\CurVer Year Released Name Version Comments 1995 Word 95 7.0 Included in Office 95 1997 Word 97 8.0 Included in Office 97 1998 Word 98 8.5 Only sold as part of Office 97 Powered By Word 98, which was only available in Japan and Korea. 1999 Word 2000 9.0 Included in Office 2000 2001 Word 2002 10.0 Included in Office XP 2003 Office Word 2003 11.0 Included in Office 2003 2006 Office Word 2007 12.0 Included in Office 2007; released to businesses on November 30, 2006, released worldwide to consumers on January 30, 2007 2010 Word 2010 14.0 Included in Office 2010 Должно получиться.
|
|
|
|
| постоянный участник
|
Пост N: 2300
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.08.12 13:37. Заголовок: santy пишет: попроб..
santy пишет: цитата: | попробуй поработать с реестром. |
| Спасибо, попробую !!!
|
|
|
|
| |
Пост N: 39
Зарегистрирован: 15.12.09
|
|
Отправлено: 25.08.12 16:38. Заголовок: http://www.sysengine..
|
|
|
|
|
| постоянный участник
|
Пост N: 2303
Зарегистрирован: 12.09.06
|
|
Отправлено: 25.08.12 21:11. Заголовок: pureproft Спасибо ..
pureproft Спасибо большое за информацию !!! Очень много полезного... С ходу нашел то что так долго искал на русском - "Win32 API по шагам.chm" и "VBA-первые шаги.chm" !!!
|
|
|
|
| постоянный участник
|
Пост N: 4693
Зарегистрирован: 12.09.06
|
|
Отправлено: 14.02.16 19:43. Заголовок: Всем привет ! Понадо..
Всем привет ! Понадобилось проверить программно есть ли WinMerge на компе пользователя. Как это сделать ? И как получить полный путь к установленному WinMerge ? А то развелось куча всяких версий виндов, и не знаешь как поступать .... Заранее спасибо за помощь. Проверял так: cPath := win_regRead( "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinMerge.exe" ) Возвращает NIL Хотя у меня запускается WinMerge из своей программы.
|
|
|
|
| |
Пост N: 775
Зарегистрирован: 20.02.11
|
|
Отправлено: 14.02.16 20:41. Заголовок: Andrey пишет: Прове..
Andrey пишет: проверь через WMI , пример в tsb_filter
|
|
|
|
| постоянный участник
|
Пост N: 4696
Зарегистрирован: 12.09.06
|
|
Отправлено: 14.02.16 22:10. Заголовок: Haz пишет: проверь ..
Haz пишет: цитата: | проверь через WMI , пример в tsb_filter |
| Запустил пример. В нем НЕТ WinMerge, хотя на компе стоит...
|
|
|
|
| |
Пост N: 778
Зарегистрирован: 20.02.11
|
|
Отправлено: 15.02.16 11:17. Заголовок: Andrey пишет: , хот..
Andrey пишет: Догадываюсь, что в списке установок в панели управления- программы и компоненты тоже нет ?
|
|
|
|
| |
Пост N: 173
Зарегистрирован: 21.04.13
|
|
Отправлено: 15.02.16 12:01. Заголовок: Проверка наличия Calc (Open Office)
Function tst_opf_srv() Local ret:=.f. Local oServiceManager begin sequence with {|e_p| break(e_p) } oServiceManager := win_oleCreateObject("com.sun.star.ServiceManager" ) lopf := !( oServiceManager = NIL ) ret :=lopf recover ret:=.f. end sequence return ret
|
|
|
|
| постоянный участник
|
Пост N: 4698
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.02.16 12:24. Заголовок: Haz пишет: в списке..
Haz пишет: цитата: | в списке установок в панели управления- программы и компоненты тоже нет ? |
| Есть.
|
|
|
|
| |
Пост N: 779
Зарегистрирован: 20.02.11
|
|
Отправлено: 15.02.16 12:37. Заголовок: Andrey пишет: Есть...
Andrey пишет: чудеса тогда должен быть в WMI Скачай какой нить простенький фришный WMI Explorer и скорми ему запрос SELECT * FROM Win32_Product покажет все поля , мож не в Caption искать надо
|
|
|
|
| постоянный участник
|
Пост N: 4700
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.02.16 13:04. Заголовок: Нашёл WMI Explorer ..
Нашёл WMI Explorer Version 1.16 KS-Soft Запустил, в списке нет WinMerge и WinRar тоже нет... Хотя в панели тоже WinRar так же присутствует. У меня Win8.1 32bit
|
|
|
Ответов - 39
, стр:
1
2
All
[только новые]
|
|