Windows-Sprache GetSystemDefaultUILanguage

[AHees]

Hallo zusammen,

ich benötige zum Auslesen der korrekten Windows Sprache den Befehl GetSystemDefaultUILanguage.

Jedoch kann ich diesen in meiner Delphi 5.0 Version nicht finden.

Hier der Auszug aus der MSDN

GetSystemDefaultUILanguage
The GetSystemDefaultUILanguage function retrieves the language identifier (LANGID) for the default language of the system.

LANGID GetSystemDefaultUILanguage(void);
Parameters
This function has no parameters.

Return Values
The return value is the LANGID for the system default UI language.

Remarks
This is the install language or the localized operating system language.

Requirements
  Windows NT/2000/XP: Included in Windows 2000 and later.
  Windows 95/98/Me: Included in Windows Me.
  Header: Declared in Winnls.h; include Windows.h.
  Library: Use Kernel32.lib.

------------------

Wie kann ich diesen Befehl über die Windows API hereinladen.

Vielleicht kann mir einer von Euch einen Tipp geben.

Grüße

Alex

[BenBE]

Entweder gucken, ob er in der Windows.pas schon existiert oder mit

Code:

function GetSystemDefaultUILanguage: LANGID; stdcall; external 'kernel32.dll' Name 'GetSystemDefaultUILanguage';

Hoff, das haut mit dem stdcall vor external hin. Ansonsten stdcall ganz ans Ende.

[Jailbird]

das stdcall gehört da hin.. ;)

[AHees]

Vielen Dank, das hat funktioniert.
Eine Frage hab ich jedoch noch. Wenn mein Programm unter Windows NT, 95 oder 98 ausgeführt wird, erscheint ein Fehler, dass der Prozedureinsprungpunkt nicht gefunden wurde. Dies ist auch klar, da dieser erst in der Kernel ab Windows Me implementiert ist.

Meine Frage nun: Kann ich diesen Fehler z.B. durch eine try..except Behandlung oder sonstiges irgendwie abfangen ?

Vielen Dank

Grüße

Alex

[Tokter]

Auf diese Art wird es statisch mit der DLL gelinkt, das heisst der exe loader von Windows sucht schon nach dieser Funktion und meldet dass es diese nicht gibt, noch bevor code von dir ausgefuehrt wird.

Du kannst diese Funktion aber auch zur Laufzeit dynamisch laden:

Mal nen Funktions Pointer Typen anlegen:

Code:

type

  TGetSystemDefaultUILanguage = function:LANGID; stdcall;

Und dann sieht ein moeglicher Aufruf so aus:

Code:

var

  LibHandle                  : THandle;

  GetSystemDefaultUILanguage : TGetSystemDefaultUILanguage;

  test                       : LANGID;

begin

  LibHandle:=LoadLibrary('kernel32.dll');

  if LibHandle>0 then begin

    GetSystemDefaultUILanguage := GetProcAddress(LibHandle,'GetSystemDefaultUILanguage');

    if Assigned(GetSystemDefaultUILanguage) then begin

      test:=GetSystemDefaultUILanguage;

      Memo1.Lines.Add(IntToStr(test));

    end else begin

      // Funktion nicht Supported

    end;

    FreeLibrary(LibHandle);

  end;

[AHees]

Vielen Dank - es funktioniert !

Grüße

Alex