|
چگونه زبان تعيين شده در regional languaugeرا تغيير دهيم؟
uses Registry;
type
TLanguageName = (Fa,En);
procedure NonUnicode_Lang(Language: TLanguageName);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SYSTEM\CurrentControlSet\Control\Nls\CodePage',False) then
case Language of
Fa : begin
WriteString('ACP','1256');
WriteString('OEMCP','720');
WriteString('MACCP','10004');
CloseKey;
end;
En : begin
WriteString('ACP','1252');
WriteString('OEMCP','437');
WriteString('MACCP','10000');
CloseKey;
end;
end;//case
if OpenKey('SYSTEM\CurrentControlSet\Control\Nls\Language',False) then
case Language of
Fa : begin
WriteString('Default','0429');
CloseKey;
end;
En : begin
WriteString('Default','0409');
CloseKey;
end;
end;//case
finally
Reg.Free;
end;//try..finally
end;
| |
|
