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

[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;