title: Get short windows language name
body: <p>i get the list of installed language on windows with below code :</p>
  
  <pre><code>var 
    AList : array [0..9] of LongWord; 
    AklName: array [0..255] of Char; 
    i: Longint; 
  begin 
    for i:= 0 to GetKeyboardLayoutList(SizeOf(AList), AList)- 1 do 
    begin 
      GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName)); 
      Memo1.Lines.AddObject(AklName, Pointer(AList[i])); 
    end; 
  end;
  </code></pre>
  
  <p>it works correctly but i want get installed language in short names like ( English -> EN ; German -> de ; Persian -> FA) , any one can help me to change this code ?</p>