کدهای و مثالهای آماده
به درخواست یکی از عزیزان این کد را نوشتیم و در وب سايت سناتورها گذاشتیم.با این کد می توانید زبان فارسی را به ویندوز اضافه کنید.در این کد دو فایل وجود دارد که باید در کنار همین برنامه قرار گیرد.(فایلها را می توانید در سی دی ویندوز پیدا کنید).("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.dl l",true);
//Create Registry Values
Vreg:=TRegistry.Create;
with Vreg do
begin
try
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlS et\Control\Keyboard Layouts\00000429",true);
WriteString("Layout File","KBDFA.dll");
WriteString("Layout Text","Farsi");
OpenKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlS et\Control\Nls\Locale",true);
WriteString("d","1");
OpenKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlS et\Control\Nls\Language",true);
WriteString("0429","l_intl.nls");
CloseKey;
finally Free end;
 end;
end;