| Вопрос: Открыть чужое приложение......а потом закрыть | Добавлено: 01.12.06 17:01 |
Автор вопроса:  robinLib
|
|
Доброе время суток! Искал по поиску но ничего не нашнл...ТАкой вопрос: Требуется открыть приложение (мне жнужно отрыть файл Microsoft Office), выполнить какие-то действия с ним (с этим проблем нет), закрыть его.
Возникает вопрос: 1. Как отрыть его невидимым, чтобы у пользователя перед глазами не мелькали окна? Я делаю так: Код: Call ShellExecute(GetDesktopWindow, "Open", pathfile, nil, nil, hwnd) В переменной pathfile - содержится имя файла запускаемого 2. Как его теперь закрыть чтобы оно в системе не оставалось.... Была идея такая найти hwnd окна и использовать затем DestroyWindow....Но поблема в том что hwnd Окна я не знаю....А если пытаюсь найти окно с помощью FindWindow то там надо указывать название заголовка, а программы Office в заголовке пишут еще и имя файл а открытого....так что оно все время меняется. Прошу помочь! P.S. Очень прошу с примером концкретного файла |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Alexandr.R Вопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #1 | Добавлено: 01.12.06 17:16 |
| Vb или VB.NET если VB.NET то как знаю | ||
|
Номер ответа: 2 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #2 | Добавлено: 01.12.06 17:27 |
| запустить приложение с параметром Hide | ||
|
Номер ответа: 3 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #3 | Добавлено: 01.12.06 17:52 |
|
Давно из своей проги печатаю, ничего на экран не вылазит:
Set xlApp = CreateObject("Excel.Application" 
Set xlBook = xlApp.Workbooks.Open(App.path & "\template.xls" 'открываю файл
Set xlSheet = xlBook.Worksheets(1) '1 лист xlSheet.Cells(1, 1).value = "Печатаю всякую фигню" xlBook.PrintOut , , , , GetSetting("Arseny", "BaseLPU", "Printer" 'Считываю принтер из реестра и печатаю
'xlApp.Visible = True 'если раскомментируешь будет видно приложение xlApp.DisplayAlerts = False 'Нет запросам на сохранение и подтверждения xlApp.Quit 'выход xlApp.DisplayAlerts = True Set xlApp = Nothing |
||
|
Номер ответа: 4 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #4 | Добавлено: 01.12.06 17:57 |
по-моему, вот это лишнее  xlApp.DisplayAlerts = True
|
||
|
Номер ответа: 5 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #5 | Добавлено: 01.12.06 18:14 |
|
2 night-roll:
Я уже не помню, по кой фиг поставил, вроде эксель потом продолжал все делать без вопросов... но точно не помню, а пробовать уже лень.
|
||
|
Номер ответа: 6 Автор ответа:  JMPВопросов: 6 Ответов: 171 |
Профиль | | #6 | Добавлено: 02.12.06 07:58 |
| Послать через АПИ SendMessage запущеному приложению сообщение WM_SYSCOMMAND с командой SC_CLOSE | ||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 04.12.06 17:12 |
|
ShellExecute что-то ж возвращает
|
||
Страница: 1 |