مرکز تخصصی دلفی

به درخواست یکی از عزیزان این کد را نوشتیم و در وبلاگ گذاشتیم.با این کد می توانید زبان فارسی را به ویندوز اضافه کنید.در این کد دو فایل وجود دارد که باید در کنار همین برنامه قرار گیرد.(فایلها را می توانید در سی دی ویندوز پیدا کنید).('KBDFA.dll' و 'l_intl.nls')

procedure AddFarsiLNG;
var Vreg:TRegistry;
//(C) Koosha System Software http://delphi-center.blogfa.com
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  //(C) 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;  //(C) Koosha System Software http://delphi-center.blogfa.com
    finally Free end;
   end;
end;