تشخیص زیبان صفحه کلید

[mbshareat]

سلام
می دونم با
LoadKeyboardLayout('00000429', 1);
و
LoadKeyboardLayout('00000409', 1);
میشه زبان صفحه کلید رو عوض کرد اما
GetKeyboardLayout(0)
429و409 بر نمی گردونه!

[دلفــي]

کد زبان فارسی 1065 و انگلیسی 1033 هست



function GetKeyboardLangName: string;
var
LangID: Word;
Buffer: array[0..LOCALE_NAME_MAX_LENGTH] of Char;
begin
LangID := LoWord(GetKeyboardLayout(0));
if LCIDToLocaleName(LangID, Buffer, Length(Buffer), 0) > 0 then
Result := Buffer
else
Result := '';
end;

[دلفــي]

کد زبان فارسی 1065 و انگلیسی 1033 هست



function GetKeyboardLangName: string;
var
LangID: Word;
Buffer: array[0..LOCALE_NAME_MAX_LENGTH] of Char;
begin
LangID := LoWord(GetKeyboardLayout(0));
if LCIDToLocaleName(LangID, Buffer, Length(Buffer), 0) > 0 then
Result := Buffer
else
Result := '';
end;