//获取系统当前输入法名称
function CurrentKeyboardName: string;
var
Source: TISInputSourceRef;
p: Pointer;
begin
Result := '';
Source := TISCopyCurrentKeyboardInputSource();
p := TISGetInputSourceProperty(Source, kTISPropertyLocalizedName);
if p <> nil then
Result := ToStr(p);
end;

function ToStr(p: CFStringRef): string;
begin
Result := UTF8String(TNSString.Wrap(p).UTF8String);
end;
//获取系统当前输入法语言名称
function CurrentKeyboardLanguage: string;
var
Source: TISInputSourceRef;
p: Pointer;
begin
Result := '';
Source := TISCopyCurrentKeyboardInputSource();
p := TISGetInputSourceProperty(Source, kTISPropertyInputSourceLanguages);
if p <> nil then begin
if CFArrayGetCount(CFArrayRef(p)) > 0 then
Result := ToStr(CFArrayGetValueAtIndex(CFArrayRef(p), 0));
end;
end;