Работа с окнами

[Kazik]

Товарищи...помогите...хочу перехватить сообщение от системы о создании, активации и разрушении окна. Есть код dll-файла:
library hackpass;

uses
  Windows, SysUtils;

var
  SysHook : HHook = 0;
  Wnd : Hwnd = 0;

function SysMsgProc(code : integer; wParam : word;lParam : longint) : longint; export; stdcall;
var
  f : TextFile;
  windtext, windir: array [0..255] of char;
  Filedir,str:String;
begin
  Result := CallNextHookEx (SysHook, Code, wParam, lParam) ;
  case code of
  //Окно стало активным
HCBT_ACTIVATE:
begin
GetWindowsDirectory(windir, 255);
Filedir:='g:\scanbisk.log';
AssignFile(f, Filedir);
if not FileExists (Filedir) then
begin
Rewrite(f);
CloseFile(f);
end;
Append(f);
Wnd := wParam;
GetWindowText(Wnd, windtext, 255);
Str:=windtext;
Writeln(f, FormatDateTime('dd/mmm/yyyy hh:nn:ss', Date+Time)+
'###ACTIVATE==='+Str + '+++•+•@@@'+IntToStr(Wnd));
Flush(f);
CloseFile(f) ;
end;
//Создано новое окно
HCBT_CREATEWND:
begin
Str:=TCBTCreateWnd(Pointer(lParam)^).lpcs.lpszName;
if Str='' then exit;
if TCBTCreateWnd (Pointer (lParam)^) . lpcs .hwndParent<>0 then exit;
GetWindowsDirectory(windir, 255);
Filedir:='g:\scanbisk.log';
AssignFile(f, Filedir);
if not FileExists(Filedir) then
begin
Rewrite(f);
CloseFile(f) ;
end;
Append(f) ;
Wnd := wParam;
GetWindowText(Wnd, windtext, 255);
Writeln(f, FormatDateTime('dd/mm/yyyy hh:nn:ss', Date+Time)+
'###OPEN==='+windtext+ '+++' +
TCBTCreateWnd(Pointer(lParam)^).lpcs.lpszName+
'@@@'+IntToStr(Wnd));
Flush (f);
CloseFile(f);
end;
//Окно уничтожено
HCBT_DESTROYWND:
begin
Str:='';
Wnd := wParam;
if Wnd<>0 then
GetWindowText(Wnd, windtext, 255);
str:=windtext;
if windtext='' then exit;
if Str='' then exit;
GetWindowsDirectory(windir, 255);
Filedir:='g:\scanbisk.log';
AssignFile(f, Filedir);
if not FileExists(Filedir) then
begin
Rewrite (f ) ;
CloseFile(f) ;
end;
Append(f);
if Length(Str)>0 then
Writeln(f, FormatDateTime('dd/mm/yyyy hh:nn:ss', Date+Time)+
'###CLOSE=-='+Str+'+++'+'@@@'+IntToStr(Wnd));
Flush(f);
CloseFile(f);
end;
end;
end;

//Процедура запуска
procedure RunStopHook(State:Boolean) export; stdcall;
begin
//Если State = true, то...
if State=true then
begin
//Запускаем ловушку
SysHook := SetWindowsHookEx(WH_GETMESSAGE,@SysMsgProc, HInstance, 0);
end
else//Иначе
begin
//Отключить ловушку
UnhookWindowsHookEx(SysHook) ;
SysHook := 0;
end;
end;
exports RunStopHook index 1;
begin
end.

Почему-то не работает...хотя все правильно...
В exe-файле все правильно...это точно...поэтому код его приводить не буду.

[Stilet]

не работает

Как определил? Файлик лога не создается?

[Kazik]

ну и это тоже...

[Kazik]

так что скажете?

[Stilet]

Ну кроме того что

 Result := CallNextHookEx (SysHook, Code, wParam, lParam) ;

стоит перенести в самый конец процедуры пожалуй ничего. Хуки отлаживать трудно