Изменение символа разделителя

[tsar_]

Всем привет! Попалась мне тут прога, которая, к сожалению, воспринимает только запятую, а на точку ругается. Чтобы не лазить по настройкам Винды каждый раз, стало интересно написать мне прогу на Delphi 7, чтоб ГЛОБАЛЬНО (т.е. в самой windows) меняла системный разделитель. Прогу задумал простую: две кнопки- "точка" и "запятая". Полез в инет, нашел вариант решения:

procedure SetDecimalSeparator( Ch: Char );
var
  DefLCID: LCID;
  Buffer: LPSTR;
begin
   Application.UpdateFormatSettings := true;
   StrPCopy( Buffer, Ch );
   DefLCID := GetThreadLocale;
   if SetLocaleInfo( DefLCID, LOCALE_SDECIMAL, Buffer ) then
      DecimalSeparator := StrPas( Buffer )[1];
   Application.UpdateFormatSettings := false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   SetDecimalSeparator( '.' );
end;

Че-то он у меня не пашет. Хотел бы, чтоб кто-то просвещенный поподробнее объяснил как работает этот код.
Также буду рад услышать другие способы.

[Аватар]

По идее это будет воздействовать только на приложение, но ни как не глобально

[tsar_]

Да, я после того, как написал, внимательнее посмотрел на код, оказалось не то .
По инету другого пока не нашел .
Может есть другой способ программного изменения системного разделителя?
Если с таким вариантом не проходит, возможно ли измненение разделителя для другого приложения из моей проги, т.е. не глобально?
Главная задача- из моей проги изменить символ разделителя для другой проги.

[MaxNik2009]

поменять разделитель целой и дробной части можно через реестр.
HKEY_CURRENT_USER\Control Panel\International - в этой ветке находятся региональные настройки, в том числе и разделитель.

[_SERGEYX_]

Угу. Значение sDecimal.
А не проще один раз в Панели управления изменить и забыть?

[tsar_]

MaxNik2009, спасибо за совет, но был бы признателен за пример, т.к. в правке реестра я, чего уж стесняться, дуб .
Сегодня вспомнил, что сразу после регистрации на форуме скачал ваш FAQ. Полез туда (Операционная система > Разное > DecimalSeparator, нашел такое:

DecimalSeparator

В Initialization поставь:

Initialization
SaveDecimalSeparator := SysUtils.DecimalSeparator;
DecimalSeparator := '.';
Finalization
DecimalSeparator := SaveDecimalSeparator;

но не понял, что именно этот код делает и куда его пихать. Поясните пожалуйста, форумчане.

P.S. _SERGEYX_ , попалась кривая, но нужная прога, которая некорректно работает с системным разделителем, из-за нее все это... А при работе в других пусть все остается по стандартному, не я ж один за компом работаю.

[MaxNik2009]

ну вот тебе пример

uses ....,Registry;


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg:= TRegistry.Create;
  try
    Reg.RootKey:= HKEY_CURRENT_USER;
    Reg.OpenKey('Control Panel\International', false);
    Reg.WriteString('sDecimal', '.' { новый разделитель } );
  finally
    Reg.Free;
  end;
end;

[tsar_]

Благодарствую, работает.