Umschaltung nach Arabisch

[Billa]

Hallo,

ich möchte in einem kleinen Programm automatisch beim Aktivieren eines Eingabefeldes auf eine arabische Sprache umstellen. Das Eingabeschema ist installiert und von Hand klappt die Umschaltung. Lt. MSDN ist der Code für Arabisch (Libyen) 0x1001.

Delphi-Quellcode:

  LangIdentifier := '00001001';
  LoadKeyboardLayout(PChar(LangIdentifier), KLF_ACTIVATE);

klappt aber nicht. Statt dessen stellt das Programm auf "EN" um. Das Zurücksetzen auf "DE" dagegen klappt mit

Delphi-Quellcode:

  LangIdentifier := '00000407';
  LoadKeyboardLayout(PChar(LangIdentifier), KLF_ACTIVATE);

Was mache ich falsch?

[Der Jan]

Theorie 1: Nur so ohne Nachzuschauen: War Arabisch nicht 01? Vlt. probierst du mal 0110 statt 1001?


Theorie 2: Gib als LangIdentifier "ar-ly" an.

[Der Jan]

Ok, ich sehe gerade, es waren beide Theorien Unfug :)

Aber vlt schaust du mal hier: http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Mir scheint dein LanguageID falsch

[himitsu]

Damit man sich nicht verschreibt:

Delphi-Quellcode:

var LangIdentifier: LANGID;

LangIdentifier := MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN);
LoadKeyboardLayout(PChar(IntToHex(LangIdentifier, 8)), KLF_ACTIVATE or KLF_SETFORPROCESS);