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; }
时间: 2024-08-28 20:56:46