VPF::WH_CBT - Форум программистов

<Spawn>

Дата 28.6.2003, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Ставлю хук WH_CBT:

Код

function CBTProc(code:integer;wParam:word;lParam:longint):longint;stdcall;
begin
//Если Code меньше 0, тогда вызвать следущий хук
if Code<0 then
 Result:=CallNextHookEx(HookHandle,Code,wParam,lParam);

if code=HCBT_CREATEWND then
 Result:=1
else
 Result:=CallNextHookEx(HookHandle,code,wParam,lParam);
end;

При установке хука, если в качестве результата возвращать 0 то все ок, но если же 1, то Дельфи сразу же умирате с криком The instruction at "0x40008e48" referenced memory at "0x01a9080c". The memory could not be "read". Из за чего это?

Это сообщение отредактировал(а) <Spawn> - 28.6.2003, 19:59

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

<Spawn>

Дата 28.6.2003, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Причем. если самому не устанавливать значение Result(в 1 или 0), то все работает нормально. Например:

Код

function CBTProc(code:integer;wParam:word;lParam:longint):longint;stdcall;
var
CBTCreateWnd:PCBTCreateWnd;
hDC:THandle;
wndSize:integer;
wndName:PChar;
begin
if Code<0 then
 Result:=CallNextHookEx(HookHandle,Code,wParam,lParam);
if (code=HCBT_CREATEWND) then
 FlashWindow(wParam,True);
Result:=CallNextHookEx(HookHandle,code,wParam,lParam);
end;

Тут ни каких ошибок не появляется.

Это сообщение отредактировал(а) <Spawn> - 28.6.2003, 20:23

--------------------

Mikel

Дата 29.6.2003, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2

А зачем закрывать абсолютно все окна?
Но вобщем дело может быть приблизительно в следующем: если ты закрываешь таким образом MDI окно, то и закрывается родительское и тот процесс. Например, закрывая диалоги виндовса, ты закрываешь explorer(по-моему это так было

--------------------

...so remember, it's better to burn out than to fade away

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »