09-09-2009, 01:06 PM
وعليكم السلام
أقرأ الدالة:
ولتغيير اللغة:
بالتوفيق.
أقرأ الدالة:
كود :
function GetWindowsLanguage: string;
var
WinLanguage: array [0..50] of char;
begin
VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50);
Result := StrPas(WinLanguage);
end;كود :
LoadKeyboardLayout('00000401',klf_activate); //for arabe
LoadKeyboardLayout('00000409',klf_activate); //for anglais
LoadKeyboardLayout('0000040C',klf_activate); //for français
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...