Übersetzung von GetSystemDefaultLocaleName von C nach Delphi

[Christian Seehase]

Moin André,

probier mal, ob das hier klappt:

Delphi-Quellcode:

function GetSystemLocaleName : string;
var po :TFarProc;
    DLLWnd :THandle;
    localeString : LPWStr;
    GetSystemDefaultLocaleName : function(  const 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;
        localeString := AllocMem(LOCALE_NAME_MAX_LENGTH);
        try
          if GetSystemDefaultLocaleName(localeString, LOCALE_NAME_MAX_LENGTH) > 0 then
          Begin
          Result :=  localeString;
          End;
        finally
        end;
      end;
    finally
      FreeLibrary(DLLWnd);
    end;
  end;
end;