При установке ловушки виснет мышь. Где ошибка не пойму.
library Project2;


{$R *.res}

uses
windows,SysUtils,
messages,Dialogs;

var
SaveExitProc : Pointer;
// дескрипторы ловушек
HKill: hHook = 0;

function CBTProc(code: integer; wParam: integer; lParam: integer): integer stdcall;
var ClassName:array[0..255] of AnsiChar;
begin
if code >= 0 then begin
if Code= HCBT_CREATEWND then
begin
GetClassName(wParam, ClassName, 256);
if (AnsiCompareStr(ClassName, 'Solitaire')=0) then
if (FindWindow(ClassName,nil)<>0) then
begin
Result:=0;
ShowMessage('Косынка есть!')
end
else begin Result:=1;
Result:=CallNextHookEx(hKill, Code, wParam, lParam);
ShowMessage('Косынки нет!') end
end;
end else
Result:=CallNextHookEx(hKill, Code, wParam, lParam);
end;


procedure StartKill;
// установка ловушки
begin
HKill :=SetWindowsHookEx(WH_CBT, @CBTProc, hInstance, 0);
if HKill = 0 then
MessageBox(0, 'Ловушка не установилась!', 'Ошибка', mb_Ok);
end;

procedure RemoveHookKill;
// удаление ловушки
begin
if HKill<>0 then
begin
UnhookWindowsHookEx(HKill);
HKill := 0
end;
end;

procedure RemoveAllHooks;
// удаление всех установленных ловушек
begin
if HKill<>0
then UnhookWindowsHookEx(HKill);
ExitProc := SaveExitProc;
end;

exports
StartKill,
RemoveHookKill;
begin
// задание процедуры выхода, снимающей ловушки
SaveExitProc := ExitProc;
ExitProc := @RemoveAllHooks;
end.

cot Какая винда?

<Spawn> Win98

До Вин 2000 хендл, возвращаемый SetWindowsHookEx, необходимо делать доступным для всех процессов, например, используя Memory Mapped Files(смотри CreateFileMapping+MapViewOfFile), так как при внедрение DLL в новое адресное пространство твоя HKill будет иметь совсем не то значение, потому что будет принадлежать другому процессу.

Спасибо!