键盘问题

Question

通过键码来区别，运行下面的代码你就明白了procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case ord(Key) of
    92: ShowMessage('key = \' + #13#10 +  '键码 = ' + IntToStr(ord(Key)));
    162: ShowMessage('key = 、' + #13#10 +  '键码 = ' + IntToStr(ord(Key)));
  end;    
end;

Answer 1

如果这样，你自己判断下当前是否为输入法状态uses imm;
ImmIsIME(GetKeyBoardLayOut(0))= true  即为开启输入法状态

Answer 2

感觉这个问题用消息钩子（HOOK）来处理比较快吧。和键码不同，消息钩子能区分的东西比较多