Delphi:
procedure SetKeystrokeDebugging(Debugging: Boolean);
var
Dialog: IOTAKeyboardDiagnostics
begin
if Supports(BorlandIDEServices, IOTAKeyboardDiagnostics, Dialog) then
Dialog.KeyTracing := Debugging;
end;
C++:
void SetKeystrokeDebugging(bool Debugging)
{
_di_IOTAKeyboardDiagnostics Dialog;
if (BorlandIDEServices->Supports(Dialog))
Dialog->KeyTracing = Debugging;
}
原文：http://www.cnblogs.com/cb168/p/4776403.html