唉 自己解决了 ;又白仍分数了
这段文字是自己输入的 可以通过判断输入法来确定是那种文字
获得当前输入法的名称:
function GetImeFileName: string;
var
; szImeFileName: array[0..MAX_PATH] of char;
begin
; if ImmGetIMEFileName(GetKeyboardLayout(0), szImeFileName, MAX_PATH) <> 0 then
; ; Result := AnsiUpperCase(StrPas(szImeFileName))
; else
; ; Result := '';
end;