Список установленных в системе языков [D6, Win2k, WinXP]
Ander © (2004-10-19 10:59:00)
Как его получить? Подскажите плиз, если кто знает... Нашел
функцию EnumUILanguages, но как ее в Delphi использовать - не
додумался.
Игорь Шевченко (2004-10-19 11:04:00) [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;
Наверх 
ЧАТ |
Орешник |
|
