来自:http://www.cnblogs.com/del/archive/2013/06/14/3135002.html ------------------------------------------------------------------------------- 大小写转换: function ToLower: string; function ToLower(LocaleID: TLocaleID): string; function ToLowerInvariant: s
输入 procedure TypeKeyString(s: string); var c: Char; i: integer; off: integer; vkw: Word; begin to Length(s) do begin c := s[i]; ) then begin vkw := VkKeyScan(c); off := ; = $ then keybd_event(VK_SHIFT, , off, ); = $ then keybd_event(VK_CONTROL, , off