Текущий архив: 2004.11.28;
Скачать: CL | DM;

Вниз

Список установленных в системе языков   Найти похожие ветки 

← →
Ander   (2004-10-19 10:59) [0]

Как его получить? Подскажите плиз, если кто знает... Нашел функцию EnumUILanguages, но как ее в Delphi использовать - не додумался.

---

← →
Игорь Шевченко ©   (2004-10-19 11:04) [1]

По аналогии с:

function EnumLanguageGroupsProc (LanguageGroup: ULONG;
   lpLanguageGroupString, lpLanguageGroupNameString: PAnsiChar;
   dwFlags: DWORD; lParam: LONG_PTR): Integer; stdcall;
var
 Item: TLanguageGroup;
begin
 Item := TLanguageGroup.Create;
 Item.Group := LanguageGroup;
 Item.GroupIdent := lpLanguageGroupString;
 Item.Name := lpLanguageGroupNameString;
 Item.Flags := dwFlags;
 TLanguageGroups(lParam).Add (Item);
 Result := 1;
end;

procedure TfMain.DoEnumLanguageGroups;
begin
 if not EnumSystemLanguageGroupsA (@EnumLanguageGroupsProc, LGRPID_SUPPORTED,
     LONG_PTR(FLanguageGroups)) then
   gbLangGroups.Visible := false;
end;

procedure TfMain.DisplayLanguageGroups;
var
 I, J: Integer;
begin
 for I:=0 to Pred(FLanguageGroups.Count) do begin
   J := clbLangGroups.Items.AddObject(FLanguageGroups[I].Name,
     FLanguageGroups[I]);
   clbLangGroups.Checked[J] := FLanguageGroups[I].Flags = LGRPID_INSTALLED;
 end;
end;



---

Страницы: 1 вся ветка

Текущий архив: 2004.11.28;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.036 c