| Вопрос: КАК ВЫГРУЗИТЬ ДВЕ ПРОГРАММЫ, мою - и справку к ... | Добавлено: 01.02.04 15:04 |
Автор вопроса:  Woolfik
|
|
Как сделать:
Выхожу из своей программы и одновреммено с этим чтобы моя справка *.chm тоже выгружалась  А свою справку я вызываю так: Call Shell("hh.exe MYHELP.chm", vbNormalFocus) Буду благодарен  |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Woolfik Вопросов: 22 Ответов: 25 |
Профиль | | #1 | Добавлено: 01.02.04 20:14 |
|
ПОМОГИТЕ!!! СРОЧНО НАДО! |
||
|
Номер ответа: 2 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #2 | Добавлено: 01.02.04 21:19 |
| Через FindWindow найди hWnd окна справки, а затем пошли этому окну сообщение WM_CLOSE функцией SendMessage | ||
|
Номер ответа: 3 Автор ответа: WoolfikВопросов: 22 Ответов: 25 |
Профиль | | #3 | Добавлено: 01.02.04 22:16 |
|
cresta, Я ничкго не понимаю в том, что ты написал, просто в эту область вообще не залазил. Но мне срочно надо сделать - может есть полегче способ? |
||
|
Номер ответа: 4 Автор ответа:  NovichoK Вопросов: 72 Ответов: 147 |
Профиль | | #4 | Добавлено: 02.02.04 00:00 |
|
Option Explicit Const WM_CLOSE = &H10 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Sub Form_Load() Dim hwnd As Long, ClassName As String, ret, Buf As String, Bufsize As Long, res As Long hwnd = FindWindow(vbNullString, "Функции Visual Basic") 'Сюда заместь Функции Visual Basic кидаешь заголовок(caption) твоего окна цшмовского Buf = Space(255) Bufsize = Len(Buf) res = GetClassName(hwnd, Buf, Bufsize) 'Вся эта суета с классами для того что если у тебя есть окно с таким же заголовком, но другого класса то скрывать должно только цшмовский классс 'Что не ясно завтра объясню If Left(Buf, 9) = "HH Parent" Then ret = SendMessage(hwnd, WM_CLOSE, 0, 0) End If End Sub |
||
|
Номер ответа: 5 Автор ответа: WoolfikВопросов: 22 Ответов: 25 |
Профиль | | #5 | Добавлено: 02.02.04 00:35 |
|
Спасибо!!!!, я объязательно, ЕСЛИ УСПЕЮ, брошу этот код... Если брошу, то завтра спрошу про него... Свои выручают своих - вот так получается! почему времени всегда не хватает?
|
||
|
Номер ответа: 6 Автор ответа:  NovichoKВопросов: 72 Ответов: 147 |
Профиль | | #6 | Добавлено: 02.02.04 10:14 |
Такова жизнь - времени всегда не хватает...
|
||
|
Номер ответа: 7 Автор ответа:   Last_SantaICQ: 200700724 Вопросов: 38 Ответов: 329 |
Web-сайт: Профиль | | #7 | Добавлено: 03.02.04 02:28 |
|
To force all HTML Help windows closed that were opened by this app: HtmlHelp(0&, "", HH_CLOSE_ALL, ByVal 0& |
||
Страница: 1 |