Einzelnen Beitrag anzeigen

Benutzerbild von wicht
wicht

Registriert seit: 15. Jan 2006
Ort: Das schöne Enger nahe Bielefeld
809 Beiträge
 
Delphi XE Professional
 
#1

EnumSystemLocales Problem

  Alt 30. Dez 2009, 04:25
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!
http://streamwriter.org

"I make hits. Not the public. I tell the DJ’s what to play. Understand?"
  Mit Zitat antworten Zitat