با سلام و تشكر
دوست بسيار عزيز ؛ فرموده ايد:
1)اضافه كردن صفحه كليد فارسي به ويندوز ، كاري است كه مي توانيد توسط فايلهاي آماده موجود در اينترنت انجام دهيد و ربطي به دلفي ندارد.
اين فايلها رو از كجا پيدا كنم ؟
2) به طور كل جهت اضافه كردن يك keyboard فارسي بايد فايل dll آن را در ويندوز جاي داد
سپس يك سري تنظيمات را مي بايست در Registry ويندوز ويرايش كرد.
براي اين كار از كد زير استفاده كردم . اما گرچا ظاهرا زبان فارسي در Toolbar ويندوز98 ظاهر ميشود ولي موقع تايپ ؛ بجاي حروف فارسي كاراكترهاي نامفهومي تايپ مي شود .[/color]procedure AddFarsiLanguage;
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
with reg do
Try
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('\System\currentControlSet\Control\Keyboard layouts\00000429',True);
WriteString('Layout File','KBDFA.kbd');
WriteString('Layout Text','Farsi');
OpenKey('\System\currentControlSet\Control\Nls\Locale',True);
WriteString('00000429','d');
OpenKey('\System\currentControlSet\Control\Nls\Language Groups',True);
WriteString('d','1');
OpenKey('\System\currentControlSet\Control\Nls\Language',True);
WriteString('0429','l_intl.nls');
CloseKey;
Finally
Free;
end;
CopyFile('E:\CD\My Delphi5 Projects\Delphi6 2002\LanguageAdder\Farsi\KBDFA.kbd',
'C:\Windows\System\KBDFA.kbd',True);
CopyFile('E:\CD\My Delphi5 Projects\Delphi6 2002\LanguageAdder\Farsi\l_intl.nls',
'C:\Windows\System\l_intl.nls',True);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AddFarsiLanguage;
end;
3)و اما مهمتر اينكه : اگر امكان داشته باشد كد كيبورد سفارشي رو بنويسيد ؛ مشكلم حل ميشه با تشكر ( علي اكبر )