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 万年历 程序源码下部分(包括：农历计算、24节气、星期计算、属相)

Delphi 字符串替换函数[单元文件 sysutils]

Delphi 控制鼠标按坐标点击

Delphi 数据库处理密码防止sql注入

Delphi一句话获取本机ip

Delphi 获取中文/数字星期的函数

trichedit 是一个标准的rtf编辑器

建议大家使用fastmm

Delphi 字符串加单引号

Delphi 动态创建窗体

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

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