Übersetzung von GetSystemDefaultLocaleName von C nach Delphi

[MagicAndre1981]

Hi,

kann mir mal jemand bei der Übersetzung der Funktion GetSystemDefaultLocaleName helfen? Ich will die Funktion aus der kernell32.dll dynamisch laden. Das Handle ist auch größer 0 und mit GetProcAdress bekomme ich Adresse, aber wenn ich die Funktion dann aufrufe bekomme ich nur japanische/chinesische Zeichen

Delphi-Quellcode:

function GetSystemLocaleName : string;
var po :TFarProc;
    DLLWnd :THandle;
    localeString : LPWStr;
    GetSystemDefaultLocaleName : function(  var lpLocaleName : LPWStr;
                                            cchLocaleName : integer)
                                            : integer; stdcall;
begin
  Result := '';
  DLLWnd := LoadLibrary('kernel32');
  if DLLWnd > 0 then
  begin
    try
      po := GetProcAddress(DLLWnd, 'GetSystemDefaultLocaleName');
      if po <> nil then
      begin
        @GetSystemDefaultLocaleName := po;
        if GetSystemDefaultLocaleName(localeString, LOCALE_NAME_MAX_LENGTH) > 0 then
        Begin
          Result :=  localeString;
        End;
      end;
    finally
      FreeLibrary(DLLWnd);
    end;
  end;
end;

Wo hab ich Mist gemacht?

Ich sollte öfters mal wieder was mit Delphi machen, ist alles total eingerostet