25-11-2009, 07:39 AM
في الرابط السابق تجد كل الدوال التي تحتاجها فقط حاول وجرب...
مثال:
للغات الأخرى:
إذا لم يكن هذا المطلوب فوضح جيدا. بالتوفيق أخي.
مثال:
كود :
function GetLayout: string;
begin
SetLength(Result, KL_NAMELENGTH+1);
if not GetKeyBoardLayoutName(PChar(Result)) then
Result := 'Error: No layout name read';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetLayout;
case IndexText(GetLayout, ['00000401', '0000040C','00020401', '00010401']) of
0: Edit1.Text := 'Arabic (101)';
1: Edit1.Text := 'Français';
2: Edit1.Text := 'Arabe (102) AZERTY';
3: Edit1.Text := 'Arabe (102)';
end;
end;كود :
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\0000040C
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...