Come chiamare EnumSystemLocales in Delphi?

Question

sto provando a chiamare EnumSystemLocales in Delfi. For example:

{ Called for each supported locale. } 
function LocalesCallback(Name: PChar): BOOL; stdcall; 
begin 
    OutputDebugString(Name); 
    Result := Bool(1); //True 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    EnumSystemLocales(@LocalesCallback, LCID_SUPPORTED); 
end; 

Il problema è che il callback viene solo richiamato una volta.

Nota:EnumSystemLocalesè restituendo vero, il successo indica.

Le osservazioni di EnumSystemLocales dice che la mia callback deve restituire vero continuare enumerazione (o più correttamente, non deve restituire falso continuare enumerazione):

La funzione enumera locali passando identificatori di impostazioni internazionali , uno a un orario, alla funzione di callback definita dall'applicazione specificata. Questo continua finché non sono stati passati tutti gli identificatori internazionali installati o supportati alla funzione di richiamata o la funzione di richiamata restituisce FALSE.

Sul documentation of the callback function:

BOOL CALLBACK EnumLocalesProc(
    __in LPTSTR lpLocaleString 
); 

un commentatore ha incontrato un problema con la definizione di "non false":

Questa funzione deve restituire 1, non (DWORD) - 1 per continuare l'elaborazione

Questo mi fa pensare che la definizione delphi di

True: BOOL; 

è diverso da quello di Windows. (Ecco perché ho provato un valore di ritorno di BOOL(1) - che non riesce ancora).

Successivamente mi chiedo se non è nemmeno supposto essere stdcall.

In entrambi i casi, qualcuno può suggerire come, in Delpi, chiamare EnumSystemLocales?

---

Edit: cercato anche:

• Result := BOOL(-1);
• Result := BOOL($FFFFFFFF);
• Result := BOOL(1);
• Result := True;

Answer 1

provare declarating la funzione LocalesCallback come questo controllo

function LocalesCallback(Name: PChar): Integer; stdcall; 

questo campione

{$APPTYPE CONSOLE} 

{$R *.res} 

uses 
    Windows, 
    SysUtils; 

function LocalesCallback(Name: PChar): Integer; stdcall; 
begin 
    Writeln(Name); 
    Result := 1; 
end; 

begin 
    try 
    EnumSystemLocales(@LocalesCallback, LCID_SUPPORTED); 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    Readln; 
end. 

Answer 2

Se ti ostini a usare BOOL tipo per risultato funzione di callback, utilizzare questo:

function LocalesCallback(Name: PChar): BOOL; stdcall; 
begin 
    OutputDebugString(Name); 
    LongWord(Result) := 1; 
end; 

perché Bool(1) = $FFFFFFFF.

Answer 3

Questo problema si verifica a causa di bug WinAPI, osservata in versione per Windows 5.1 WinNls EnumXXX famiglia funzione (e, secondo i commenti, probabilmente molti altri) è riconoscere solo esattamente (BOOL)1 come (BOOL)TRUE e interromperà l'enumerazione se richiamata restituisce qualsiasi altra returnValue != (BOOL)FALSE .

Ecco una soluzione più semantica ho capito:

LongWord(Result) := LongWord(True);  // WINBUG: WinNls functions will continue 
              // enumeration only if exactly 1 was returned 
              // from the callback