Объявление функции GetWindowHandle ?

  Вход на форум   логин       пароль   Забыли пароль? Регистрация
On-line:  

Раздел: 
Программирование на CAVO / / Объявление функции GetWindowHandle ?

Страницы: 1  новая тема

Автор Сообщение

Группа: Участники
Сообщений: 7
Добавлено: 16-04-2011 01:22
Всем привет!
Тут проскочило сообщение, как отвязать Graphics4VO
Решил попробовать и уткнулся в проблему -
функция GetWindowHandle в Win32 API Library не объявлена
Может кто подскажет, как ее объявить по правилам КАВО -
в какой системной либе она сидит?

Группа: Модераторы
Сообщений: 177
Добавлено: 16-04-2011 19:03
Да, такой функции нет. Думаю, что автор сочинил свою, которая по имени окна (или это его заголовок?) выдаёт его Handle. Если я правильно понял, то скорее всего данное окно есть с самого начала запуска программы, но оно невидимо и он (автор) его находит и блокирует (через игнорирование или через прямое закрытие). Подтвердить ничего не могу, т.к. с G4VO не работаю.

Группа: Администраторы
Сообщений: 17
Добавлено: 16-04-2011 23:39
Да, это я недосмотрел


FUNCTION GetWindowHandle(cCapt)
LOCAL hChild AS PTR
LOCAL sChild AS STRING
LOCAL sCaption AS STRING
LOCAL sClassName AS STRING
LOCAL DIM buf[80] AS BYTE
LOCAL aWindows AS ARRAY
//LOCAL cTitle AS STRING
LOCAL nWindow AS DWORD
LOCAL pReturn AS PTR
LOCAL hParent AS PTR

aWindows := {}
hParent := GetDesktopWindow()
hChild := GetWindow(hParent, GW_CHILD)

WHILE (hChild != NULL_PTR)

sChild := AsString(hChild)
GetWindowText(hChild, @buf, 80)

sCaption := Psz2String(@buf)
GetClassName(hChild, @buf, 80)
sClassName := Psz2String(@buf)

AAdd(aWindows, {hChild, sChild, sCaption, sClassName})

hChild := GetWindow(hChild, GW_HWNDNEXT)
END

nWindow := AScan(aWindows, {|X| Instr(cCapt, X[3])})
IF nWindow > 0
pReturn := aWindows[nWindow, 1]
ELSE
pReturn := NULL_PTR
ENDIF
RETURN pReturn

Группа: Участники
Сообщений: 7
Добавлено: 18-04-2011 19:33
Да, это я недосмотрел


FUNCTION GetWindowHandle(cCapt)
LOCAL hChild AS PTR
LOCAL sChild AS STRING
LOCAL sCaption AS STRING
LOCAL sClassName AS STRING
LOCAL DIM buf[80] AS BYTE
LOCAL aWindows AS ARRAY
//LOCAL cTitle AS STRING
LOCAL nWindow AS DWORD
LOCAL pReturn AS PTR
LOCAL hParent AS PTR

aWindows := {}
hParent := GetDesktopWindow()
hChild := GetWindow(hParent, GW_CHILD)
........


Спасибо за текст функции, буду настраивать

Страницы: 1  новая тема
Раздел: 
Программирование на CAVO / / Объявление функции GetWindowHandle ?

Отвечать на темы могут только зарегистрированные пользователи

KXK.RU