به درخواست یکی از عزیزان این کد را نوشتیم و در وبلاگ گذاشتیم.با این کد می توانید زبان فارسی را به ویندوز اضافه کنید.در این کد دو فایل وجود دارد که باید در کنار همین برنامه قرار گیرد.(فایلها را می توانید در سی دی ویندوز پیدا کنید).("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 
    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;  
    finally Free end;
   end;
end;