Delphi 2010虚拟键盘，从CapsLock开启？

Delphi 2010企业版

显示虚拟键盘时，如何自动打开CapsLock。

最佳答案

在您的FormCreate上尝试以下操作:

procedure TForm1.FormCreate(Sender: TObject);
var
  MyKeys: array of tagInput;
begin
  setLength(MyKeys, 2);
  MyKeys[0].Itype:=INPUT_KEYBOARD;
  MyKeys[0].ki.wVk:=VK_CAPITAL;
  MyKeys[0].ki.wScan:=0;
  MyKeys[0].ki.dwFlags:=4;
  MyKeys[0].ki.time:=0;
  MyKeys[0].ki.dwExtraInfo:=0;

  MyKeys[1].Itype:=INPUT_KEYBOARD;
  MyKeys[1].ki.wVk:=VK_CAPITAL;
  MyKeys[1].ki.wScan:=0;
  MyKeys[1].ki.dwFlags:=4+2;
  MyKeys[1].ki.time:=0;
  MyKeys[1].ki.dwExtraInfo:=0;
  SendInput(2, MyKeys[0], sizeof(tagInput));
end;

您可以找到有关msdn的更多信息

关于Delphi 2010虚拟键盘，从CapsLock开启？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/4988747/