EnumSystemLocales Problem

[wicht]

Morgen Forum.

Ich versuche (mittlerweile schon etwas länger..) alle Sprachen herauszufinden, die Windows so bekannt sind.
Da dachte ich mir, und es liest sich auch überall so, dass EnumSystemLocales mit dem Flag LCID_SUPPORTED alle Sprachen auflistet.

Folgenden Code habe ich:

Delphi-Quellcode:

function LocalesEnumProc(szLoc: LPSTR): BOOL; stdcall;
begin
  Result := BOOL(1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  EnumSystemLocalesA(@LocalesEnumProc, LCID_SUPPORTED);
end;

Mein Callback wird nur einmal aufgerufen. Und es gibt ja doch schon einige Sprachen mehr, als 0x0401 (Saudi Arabia).. Habe ich die Funktion falsch verstanden oder ist in diesem kurzen Codebeispiel ein Bock?
Irgendwelche Ideen?


Vielen Dank schonmal im Vorraus!

[cookie22]

Delphi-Quellcode:

function LocalesEnumProc(Locale: PChar): Integer;
begin
  LocalesEnumProc := 1;
end;

so sollte es gehen.

[wicht]

Sehr schön, dankesehr!

[himitsu]

Ich finde Result übersichtlicher

Delphi-Quellcode:

function LocalesEnumProc(Locale: PChar): Integer;
begin
  //...
  Result := 1;
end;

(ist auch praktischer so, wenn man die Funktion mal umbennent)

[cookie22]

Zitat von himitsu:

Ich finde Result übersichtlicher

Delphi-Quellcode:

function LocalesEnumProc(Locale: PChar): Integer;
begin
  //...
  Result := 1;
end;

(ist auch praktischer so, wenn man die Funktion mal umbennent)

da hast du recht.