من منظورم صفحه کلید اختصاصی نبود آیا در حالت نرمال میشه توی این فایل رو جایگزین کرد که گچپژ درست بشه یعنی جاشون درست بشه
بهتر است برای این منظور فایل دیگری که دارای آرایش مناسب حروف بر روی صفحه کلید هست را با یک نام دیگر در شاخه system32 ویندوز کپی کرده و سپس نام آن را به عنوان صفحه کلید فعال در رجیستری ویندوز ذخیره کنید.
آدرس موردنظر برای تغییر دررجیستری:
[HKEY_LOCAL_MACHINE\SYSTEM\currentControlSet\Contro l\Keyboard Layouts\00000429]
"Layout Text"="farsi"
"Layout Display Name"="@%SystemRoot%\\system32\\input.dll,-5124"
"Layout File"="kbdfarsi.dll"
که در اینجا مثلا نام فایل جدید صفحه کلید فارسی (که آن را مطابق میل تغییر داده اید) kbdfarsi.dll می باشد. (البته چندین نمونه مختلف (صفحه کلید فارسی تصحیح شده) برای این منظور در همین سایت وجود دارد .
نکته: در زمینه حروف پژگچ موجود در صفحه کلید فارسی پیش فرض خود ویندوز نیز تنها دو حرف ژ و پ سرجای واقعی (واقعی که نمی توان گفت بلکه استاندارد قدیمی ) خود قرار ندارند و البته اکنون که بسیاری از کاربران نیز به این سبک آرایش حروف صفحه کلید عادت کرده اند.
در رابطه با نمونه سورس کد جهت تغییر و تنظیم عربی و ... کد جدیدش که قابلیت تنظیم کشور ایران و دیگر تنظیمات مربوط به فارسی (عدد و تاریخ و ....) که مربوط به گزینه اول (regional options ) از آیتم Regional and language options را نیز دارد در اینجا قرار می دهم:
procedure NonUnicode_Lang(Language: TLanguageName);
begin
Reg := TRegistry.Create;
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SYSTEM\CurrentControlSet\Control\Nls\Code Page',False) then
begin
case Language of
Fa,Ar : begin
if ReadString('ACP') <> '1256' then
begin
WriteString('ACP','1256');
WriteString('OEMCP','720');
WriteString('MACCP','10004');
end;
end;
end;//case
CloseKey;
end;
if OpenKey('SYSTEM\CurrentControlSet\Control\Nls\Lang uage',False) then
begin
case Language of
Ar : begin
if ReadString('Default') <> '0401' then
WriteString('Default','0401');
end;
Fa : begin
if ReadString('Default') <> '0429' then
WriteString('Default','0429');
end;
end;//case
if ReadString('0429') <> 'l_intl.nls' then
WriteString('0429','l_intl.nls');
CloseKey;
end;
if OpenKey('SYSTEM\CurrentControlSet\Control\Nls\Lang uage Groups',True) then
begin
if ReadString('d') <> '1' then
WriteString('d','1');
CloseKey;
end;
if OpenKey('SYSTEM\CurrentControlSet\Control\Nls\Loca le',True) then
begin
if ReadString('00000429') <> 'd' then
WriteString('00000429','d');
CloseKey;
end;
if OpenKey('SYSTEM\CurrentControlSet\Control\keyboard layouts\00000429',True) then
begin
if ReadString('Layout File') <> 'KBDFA.DLL' then
WriteString('Layout File','KBDFA.DLL');
if ReadString('Layout Text') <> 'Farsi' then
WriteString('Layout Text','Farsi');
CloseKey;
end;
RootKey := HKEY_CURRENT_USER;
if OpenKey('Control Panel\International',False) then
begin
if ReadString('Locale') <> '00000429' then
begin
WriteString('iCalendarType','2');
WriteString('iCountry' ,'981');
WriteString('iCurrDigits','2');
WriteString('iCurrency' ,'2');
WriteString('iDate' ,'2');
WriteString('iDigits' ,'2');
WriteString('iNegCurr' ,'3');
WriteString('iNegNumber' ,'3');
WriteString('iTLZero' ,'1');
WriteString('Locale' ,'00000429');
WriteString('NumShape' ,'0');
WriteString('s1159','ق.ظ');
WriteString('s2359','ب.ظ');
WriteString('sCountry' ,'Iran');
WriteString('sCurrency','ریال');
WriteString('sLanguage','FAR');
WriteString('sLongDate','yyyy/MM/dd');
// WriteString('sNativeDigits','0123456789');
WriteString('sShortDate','yyyy/MM/dd');
end;
CloseKey;
end;
if OpenKey('Control Panel\International\Geo',False) then
begin
if ReadString('Nation') <> '116' then
begin
// WriteString('Nation','116');
end;
CloseKey;
end;
finally
Reg.Free;
end;//try..finally
//end;
end;
//-------------------------------------
که به هنگام پیاده سازی تغییرات چک می کند اگر قبلا دارای چنین تنظیمی بوده دیگه مقدار جدید را ذخیره نمی کند (چرا که بعضا حتی اگر مقدار قبلی چنین باشد در صورت تغییر سیستم نیاز به ریستارت پیدا می کند).
و متن فایل رجیستری که برای این منظور هست (تغییر یونی به عربی, تنظیم نام صفحه کلید, تنظیمات مربوط به کشور ایران و ....) را نیز قرار می دهم تا دوستانی که مایل به ایمپورت آن به برنامه های نصب دیگر هستند استفاده کنند.
[HKEY_LOCAL_MACHINE\SYSTEM\SYSTEM\CurrentControlSet \Control\Nls\CodePage]
"ACP"="1256"
"OEMCP"="720"
"MACCP"="10004"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Nls\Language]
"Default"="0401"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Nls\Language Groups]
"d"="1"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Nls\Locale]
"00000429"="d"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\keyboard layouts\00000429]
"Layout File"="KBDFA.DLL"
"Layout Text"="Farsi"
[HKEY_CURRENT_USER\Control Panel\International]
"iCalendarType"="2"
"iCountry"="981"
"iCurrDigits"="2"
"iCurrency"="2"
"iDate"="2"
"iDigits"="2"
"iNegCurr"="3"
"iNegNumber"="3"
"iTLZero"="1"
"Locale"="00000429"
"NumShape"="0"
"s1159"="ق.ظ"
"s2359"="ب.ظ"
"sCountry"="Iran"
"sCurrency"="ریال"
"sLanguage"="FAR"
"sLongDate"="yyyy/MM/dd"
"sShortDate"="yyyy/MM/dd"
[HKEY_CURRENT_USER\Control Panel\International\Geo]
"Nation"="116"
پاسخ با نقل قول
:flower: :موفق:
