Probleme mit TStrings.IndexOfName unter Vista

[sh17]

Zitat von sh17:

Hast Du mal eben den Wert von LOCALE_INVARIANT bei der Hand? Bin grad unter XP und hab da das SDK nicht drauf.

is ja gar keine Konstante. wird mit

(MAKELCID(MAKELANGID(LANG_INVARIANT, SUBLANG_NEUTRAL), SORT_DEFAULT))

erzeugt. hier steht es wie es geht.

//EDIT

Aber leider bringt das nicht wirklich was - immer noch falsch:

Delphi-Quellcode:

function MAKELCID(LangId, SortId: WORD): DWORD;
begin
  Result := (DWORD(SortId) shl 16) or DWORD(LangId);
end;

function MAKELANGID(PrimaryLang, SubLang: Word): WORD;
begin
  Result := (SubLang shl 10) or PrimaryLang;
end;

procedure TForm1.TntButton3Click(Sender: TObject);
const
  NORM_LINGUISTIC_CASING = $08000000;
  LINGUISTIC_IGNORECASE = $10;
  LANG_INVARIANT = $7F;
begin
  if (CompareStringW((MAKELCID(MAKELANGID(LANG_INVARIANT, SUBLANG_NEUTRAL), SORT_DEFAULT)), 
                     0, 
                     'HÜBNER', Length('HÜBNER'),
                     'HUEBNER', Length('HUEBNER')) - 2) = 0 then
    ShowMessage('Fehler');
end;