+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: گرفتن زبان جاری انتخاب شده برای صفحه کلید (/showthread.php?tid=593)
گرفتن زبان جاری انتخاب شده برای صفحه کلید - Amin_Mansouri - 08-01-2011
از این تابع برای گرفتن زبان جاری انتخاب شده برای صفحه کلید استفاده می شود
(فارسی یا عربی یا انگلیسی یا....)
کد:
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;