Decimalseparator... WinXP vs. Win7???

[user0815]

Hier ist das ganze gut beschrieben: http://www.delphipraxis.net/156447-d...lsettings.html

Delphi-Quellcode:

uses Registry;

{$R *.dfm}

function Win7LocaleCheck : String;
var
  regist : TRegistry;
  s : String;
begin
  s := '';
  regist := TRegistry.create();
  try
    regist.RootKey := HKEY_CURRENT_USER;
    if regist.Openkey('\Control Panel\International', false) then
    begin
      s := 'Locale: ' + regist.ReadString('Locale');
      s := s + '/ LocaleName:' +regist.ReadString('LocaleName');
    end;
    regist.CloseKey;
  finally
    regist.Free;
  end;

  Result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Win7LocaleCheck);
end;