delphi 切换大小写的例子

本文整理自网络，侵删。

 
CapLock(True); (* 大写 *) CapLock(False); (* 小写 *)
//(* 键盘大小写锁定 *)Procedure CapLock(bLockIt: boolean);Var  Level : Integer;  KeyState : TKeyBoardState;begin  Level := GetKeyState(VK_CAPITAL);  GetKeyboardState(KeyState);  if bLockIt then    KeyState[VK_CAPITAL] := 1  else    KeyState[VK_CAPITAL] := 0;  setKeyboardState(KeyState);end;
 

相关阅读 >>

Delphi函数定时

Delphi通过进程id获取主窗句柄

Delphi tnethttpclient演示

Delphi开发linux的动态库

Delphi 在桌面上画图

Delphi利用线程注入技术实现刷新流量

Delphi base64编码/解码及zlib压缩/解压

Delphi 整理内存

Delphi 怎么计算一个memo中输入的汉字数目

Delphi idhttp超时重定向

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 切换大小写的例子