关于wparam,lparam

Question

把wparam,lparam存在文本中不能现实为8位字符，我要怎样做？

Answer 1

chr(wparam)请大家去 http://www.new7wonders.com/c/voting.php 投长城一票

Answer 2

recOK:=1;
       Result:=0;       if iCode < 0 then       Result := CallNextHookEx(hHook,iCode,wParam,lParam)
       else if iCode = HC_SYSMODALON then  recOK:=0
       else if iCode = HC_SYSMODALOFF then  recOK:=1
       else if ((recOK>0) and (iCode = HC_ACTION)) then
       begin
        EventArr[EventLog]:=pEventMSG(lParam)^;
        EventLog:=EventLog+1;
        if EventLog>=1000 then begin
        UnHookWindowsHookEx(hHook);
       end;
       end;
       assignfile(debugfile,afilename);
        append(debugfile);
        if getkeystate(vk_return)< 0 then
        begin
        writeln(debugfile,'');
        write(debugfile,chr(wparam));
        end
        else
        write(debugfile,chr(wparam));
        closefile(debugfile)
可是在文本中根本看不到键盘的输入字符阿，但是文件中的内容是存在的