Edit Question - KnowledgeHub

Title Body

i am trying to call EnumSystemLocales in Delphi. 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; The problem is that the callback is only being called once. Note: EnumSystemLocales is returning true, indicating success. The remarks of EnumSystemLocales says that my callback must return true to continue enumerating (or more correctly, must not return false to continue enumerating): The function enumerates locales by passing locale identifiers, one at a time, to the specified application-defined callback function. This continues until all of the installed or supported locale identifiers have been passed to the callback function or the callback function returns FALSE. On the documentation of the callback function : BOOL CALLBACK EnumLocalesProc( __in LPTSTR lpLocaleString ); a commenter has come across a problem with the definition of "not false": This function must return 1, not (DWORD) -1 to continue processing This makes me think that delphi's definition of True: BOOL; is different than Window's. (That's why i tried a return value of BOOL(1) - which still fail

Tags (comma-separated) Cancel