Как изменить регистр Windows?

[Влад_М]

Возможно ли вобще изменть в регистре HKEY_LOCAL_MACHINE\ SYSTEM\ CurrentControlSet\ Control\Nls\CodePage значение параметра "1252" на "с_1251.nls если оно еще =1252 ?

[Stilet]

А зачем? что ты винду ламаешь?

[Влад_М]

Мне к проге нужна справка Win32. И получается так что винда не подхватывает шрифты некоторые.. И надо что б при запуске программы менялся 1 параметр. Если он еще не изменен. Тогда все становиться понятным. В противном случае просто будет набор каких то значков =)

[FaTaL]

ну и в чем проблема?
If параметр не тот что нужен then меняем параметр

[Влад_М]

Как к реестру обратиться?

[Neeter]

В uses добавляйте Registry
и дальше:

procedure TForm1.Button1Click(Sender: TObject);
var
 reg: TRegistry;
begin
 reg := TRegistry.Create;
 try
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Nls\CodePage\', false);
  if reg.ReadString('1252') <> 'с_1251.nls' then
   reg.WriteString('1252', 'с_1251.nls');
 finally
  reg.Free;
 end;
end;

[Влад_М]

Спасибо огромнейшее!

Еще 1 момент: как можно реализовать перезагрузку компьютера?

[Neeter]

Может вот так(не тестил):

procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_FORCE and EWX_REBOOT,0);
//EWX_SHUTDOWN для выключения
//EWX_REBOOT для перезагрузки
//EWX_LOGOFF для logoff
end;

Взято с http://www.delphicode.ru/system/windows_shutdown.htm

[Stilet]

ExitWindowsEx

Если не ошибаюсь программа вызывающая эту функу должна иметь права на выполнения ее, так что тут еще и права бы получить нужно по хорошему )

[FaTaL]

// Принудительная перезагрузка

procedure ReBootForce;
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
  TOKEN_QUERY, hToken) then
    begin
      LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
      tkp.PrivilegeCount := 1;
      tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
        ExitWindowsEX(EWX_REBOOT or EWX_FORCE,0);
    end;
end;