После подключения dll комп зависает!!!

[Irat]

Подскажите, пожалуйста, почему комп виснет!!!
код dll которую подключаю
library lovushka1;

uses
SysUtils, Windows, messages, Dialogs;

{$R *.res}
var SysHook: HHook = 0;
Wnd: Hwnd = 0;

function CallWndProc(Code:integer; wParam:word; lParam:LPARAM):integer; export; stdcall;
var Str:String;
windtext,windir:array [0..255]of char;
begin
if Code>=0 then
begin
Wnd:=wParam;
GetWindowText(Wnd,windtext,0);
Str:=windtext;
if str='' then ShowMessage('Ничего нет')
else ShowMessage(Str);
if str='D:\games' then
begin
Result:=1;
ShowMessage('Не откроешь')
end
else Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
end
else Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
end;

procedure RunStopHook(State:Boolean)export; stdcall;
begin
if State=true then
begin
ShowMessage('Включил');
SysHook := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProc, HInstance, 0);
end
else
begin
UnhookWindowsHookEx(SysHook);
SysHook:= 0;
end;
end;

exports RunStopHook index 3;

begin
end.
Спасибо!!!

[B_N]

Irat, ну мы же в этой теме уже обсудили параметры, которые приходят в хук. С чего Вы взяли, что wParam - это окно? Не говоря о том, что ShowMessage, тоже создаёт окна, и соообщения для них тоже должны попасть в этот хук, и так до бесконечности, по идее вообще стэк должен кончаться. Исправляйте, хотя бы очевидное, для начала.
-------------
Да, и еще, HInstance откуда берётся?