Umschaltung nach Arabisch

[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);