[mash]

R.i.m.s.k.y., спасибо тебе все получилось, правда вот осталась одна малость. Может кто-то поможет к этому коду добавить:

Код:

Procedure NLS();
Var NLS1: string; res : integer;
begin
  RegQueryStringValue(HKLM, 'SYSTEM\CurrentControlSet\Control\Nls\CodePage','ACP', NLS1);
  if NLS1 = '1252' then Exec('reg.exe', ' import ' + ' ' + AddQuotes(ExpandConstant('{tmp}\Rus.reg')),ExpandConstant('{tmp}'),SW_HIDE, ewWaitUntilTerminated, res);
end;

ииии + перезагрузиться в конце инсталляции.