[Amin_Mansouri]

از این تابع برای گرفتن زبان جاری انتخاب شده برای صفحه کلید استفاده می شود

(فارسی یا عربی یا انگلیسی یا....)

کد:

function GetLangugeSelectedName:string;
  var
   IdiomaID:LangID;
   Idioma: array [0..100] of char;
  begin
    {Obtiene el ID del idioma del sistema}
    {Get System ID}
    IdiomaID:=GetUserDefaultLangID;
    {Obtiene el nombre del idioma}
    {Get Languaje Name}
    VerLanguageName(IdiomaID,Idioma,100);
    Result:=String(Idioma);
  end;

به عنوان مثال:

کد:

Label1.Caption:=GetLangugeSelectedName;