VBNet - Форум - Опять Word

Вопрос: Опять Word Добавлено: 13.02.11 16:00

Автор вопроса: Dan | ICQ: 609276007

Темка была: http://www.vbnet.ru/forum/show.aspx?id=207105
если ворд не открыт прога не работает
Как сделать что, если ворд не открыт не выполнять код?
спасибо
Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #1	Добавлено: 19.02.11 09:19
	Перебери открытые приложения, с поиском по имени (API розрыть прийдется) Ответить

Номер ответа: 2 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #2	Добавлено: 19.02.11 09:36
	http://www.rusedu.ru/detail_828.html тут справочник валялся Ответить

Номер ответа: 3 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #3	Добавлено: 19.02.11 09:42
	напрмиер GetNextWindow Declare Function GetWindowText Lib "user32.dll" Alias _ "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As _ String, ByVal cch As Long) As Long Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 19.02.11 12:30
	SHDZ пишет: Перебери открытые приложения, с поиском по имени А то, что у ворда имена могут быть разные, а так же возможно наличие не-вордовских окон с текстом "...word..." тебя не смущает? SHDZ пишет: http://www.rusedu.ru/detail_828.html тут справочник валялся почему бы не MSDN? SHDZ пишет: напрмиер GetNextWindow И как с помощью этой функции гарантированно определить наличие или отсутствие запущенного ворда? Ответить

Номер ответа: 5 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #5	Добавлено: 19.02.11 14:17
	http://www.vbnet.ru/forum/show.aspx?id=214154 Ответить

Номер ответа: 6 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #6	Добавлено: 19.02.11 16:11
	Пример на шарпе, на VB6 чуть переделать нужно #region Поиск окна [DllImport("user32.dll", EntryPoint = "FindWindow", SetLastError = true)] private static extern IntPtr FindWindow(string lpClassName, string lpWindowName); //static extern IntPtr FindWindowByCaption(IntPtr ZeroOnly, string lpWindowName); [DllImport("user32.dll", SetLastError = true)] static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow); #endregion /// <summary> /// True - найдено, False - не найдено /// </summary> /// <returns></returns> public static int FindProcess() { //HWND = FindWindow("calc.exe", null); HWND = FindWindow(null, _FindProgramm); if ((HWND == null) \|\| ((Int32)HWND == 0)) HWND = FindWindow(null, _FindProgramm + ".exe"); if ((HWND == null) \|\| ((Int32)HWND == 0)) HWND = FindWindow(_FindProgramm, null); if ((HWND == null) \|\| ((Int32)HWND == 0)) { foreach (Process p in Process.GetProcesses()) { if (p.ProcessName == _FindProgramm) HWND = FindWindow(null, p.MainWindowTitle); //HWND = p.Handle; } } if ((HWND != null) && ((Int32)HWND != 0)) { // Проверяем - смогли ли мы определить местоположение окна и размеры return GetPlacement(); } else return 1111; Ответить

Номер ответа: 7 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #7	Добавлено: 19.02.11 16:13
	Функция GetPlacement() тебе не нужна, это я уже с окном работал Ответить

Номер ответа: 8 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #8	Добавлено: 19.02.11 16:16
	Да сорри за неточность _FindProgramm = это как раз искомое имя в твоем случае _FindProgramm = "WINWORD.exe" Ответить

Номер ответа: 9 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #9	Добавлено: 19.02.11 16:28
	Проверил - все работает и находит процесс, тока имя задавай "WINWORD", где вордовские документы любые - не зависимо от имени файла Ответить

Страница: 1 |