Morgen.

Ich will den ISO 639-1 Sprachcode der momentanen Systemsprache ermitteln. Mit GetSystemDefaultLangID kriegt man ja einen Word-Wert, aber der hilft mir ned wirklich weiter...

Es sind zwar noch nicht ganz 24 Stunden, aber ich erlaube es mir trotzdem mal, zu *push*en.

Hi,
ich glaube mit dem ISO Standard dürfte es etwas schwer werden. Der ist erst in .Net verfügbar. Da musst du nur mal auf den MSDN Seiten nach dem NLS SDK gucken, dürfte eine Funktion GetSystemDefaultLocaleName geben, die arbeitet (imho) nach ISO 639, weiß aber nicht genau ob -1 oder -2.
Unter Win32 glaube ich nicht, dass der schon so verfügbar war. Aber auch dort denke ich wirst du eher bei MSDN fündig. Sorry dass ich dir nicht direkt helfen kann.

Gruß Der Unwissende

Hallo Manuel,

wenn du die ersten 2 Buchstaben des Funktionsergebnisses abgreifst, dann solltest du nach Windows-Konvention die zweistellige Sprachkennung nach ISO 639-1 erhalten.

markieren

Delphi-Quellcode:

function AbbrevLangName: String;
var
  buffer: array [0..5] of Char;
begin
  SetString(Result, buffer,
    GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SABBREVLANGNAME, @buffer, sizeOf(buffer))
  );
end;

Grüße vom marabu

Also einfach die ersten zwei Zeichen nehmen geht nicht, da das bei vielen Sprachen nicht so ist.

Aber ich habe jetzt eine andere Möglichkeit gefunden.

Dafür bräuchte ich aber die Eigenbezeichnung der Sprache ODER die englische Bezeichnung. Aber nicht Deutsch (Deutschland) sondern nur Deutsch.

Oft liefert der Code das richtige Ergebnis, aber leider nicht immer. Wenn du mehr Sicherheit brauchst, dann hilft es das CissoUtil Automationsobjekt aus der Bibliothek IXSSO.DLL zu importieren. Danach geht sowas:

markieren

Delphi-Quellcode:

// uses Cisso;
ShowMessage(CissoUtil.LocaleIDToISO(GetUserDefaultLCID));

marabu

Wo finde ich diese DLL?

Schau mal unter C:\WINDOWS\system32 oder besser %systemroot%\system32

Ich hab nicht genau gelesen.

OK, woher bekomme ich die Header für diese DLL?

So erzeugst du dir die Unit CISSO, die du dann in ein Package deiner Wahl installieren kannst:

markieren

Code:

c:
cd \Programme\Borland\Delphi7\Imports\Source
tlibimp -Fe- %windir%\system32\ixsso.dll

Danach ziehst du die Komponente CissoUtil aus der Palettenseite Servers auf eine Form und los geht es.

Grüße vom marabu