اضافه کردن فارسی با دلفی

[ab.mahmoodi]

چگونه میتوان با استفاده از دلفی زبان فارسی را در winxp اضافه نمود.
توجه داشته باشید که ویندوز تازه نصب شده باشد و هنوز فارسی آن فعال نشده است.

[areza]

عزیزم
این کارو نیاز نیست بادلفی انجام بدی
یه راه خیلی راهت ترم هست بهتره با تغییر و تنظیم فایلهای اینستالی ویندوز این کار رو انجام بدی به صورتی که وقت نصب اتوماتیک فارسی رو نصب کنه

[soshians]

این قطعه کد برای اضافه کردن زبان فارسی به ویندوز است و توسط آقای کوشا نخعی نوشته شده است.delphi-center.blogfa.com
در این کد دو فایل وجود دارد که باید در کنار همین برنامه قرار گیرد.(فایلها را می توانید در سی دی ویندوز پیدا کنید).('KBDFA.dll' و 'l_intl.nls')
procedure AddFarsiLNG;
var Vreg:TRegistry;
begin
//Copy Files
CopyFile('l_intl.nls','C:\windows\system32\l_intl.nls',true);
CopyFile('KBDFA.dll','C:\windows\system32\KBDFA.dll',true);
//Create Registry Values
Vreg:=TRegistry.Create;
with Vreg do
begin //© Koosha System Software http://delphi-center.blogfa.com/
try
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000429',true);
WriteString('Layout File','KBDFA.dll');
WriteString('Layout Text','Farsi');
OpenKey('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Locale',true);
WriteString('d','1');
OpenKey('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language',true);
WriteString('0429','l_intl.nls');
CloseKey; //© Koosha System Software http://delphi-center.blogfa.com/
finally Free end;
end;
end;