小弟的一個鍵盤鉤子.

例:

if (WChar[0] = #13) then
begin
wchar[0] := #10;
WriteFile(HFile, WChar[0] , 1, WSize, nil);
end;

如果敲擊回車鍵.
則hfile內容換行.

現在如果要敲擊TAB建.也自動換行.改如何操作?.
我嘗試過:
if (WChar[0] = #9) then
begin
wchar[0] := #10;
WriteFile(HFile, WChar[0] , 1, WSize, nil);
end;

但是不僅沒有換行,而且文本內有還有個■.

不知道怎么回事?.請高手指教.

編輯記錄

var
BytesWritten: DWORD;
s : string;
begin
{
Send a word-wrap (#13 #10) to Hfile
}
s := #13 #10;
..
if (WChar[0] = #9) then
WriteFile(HFile, s[1], Length(s), BytesWritten, nil);

end;

------
What do we live for if not to make life less difficult for each other?