VPF::Получить список кодировок в MSIE

Alexeyt

Дата 16.9.2007, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2

Пытаюсь получить список кодировок в MSIE с описаниями.
Читаю HKEY_CLASSES_ROOT\Mime\Database\Codepage ,
получается такой список, неполный:

Цитата

Арабская (Windows)

Балтийская (ISO)
Балтийская (Windows)

Вьетнамская (Windows)

Греческая (ISO)
Греческая (Windows)

Западноевропейская (Windows)

Иврит (Windows)

Кириллица (DOS)
Кириллица (ISO)
Кириллица (KOI8-R)
Кириллица (KOI8-U)
Кириллица (Windows)

Китайская традиционная (Big5)
Китайская упрощенная (GB2312)
Китайская упрощенная (HZ)

Корейская
Корейская (EUC)
Корейская (ISO)

Тайская (Windows)

Турецкая (Windows)

Центральноевропейская (DOS)
Центральноевропейская (ISO)
Центральноевропейская (Windows)

Юникод (UTF-7)
Юникод (UTF-8)

Японская (JIS)
Японская (Shift-JIS)
Японская (однобайтная кана с JIS - SO/SI)
Японская (однобайтная кана с JIS)

Полный список в самом MSIE такой:

Как получить этот список?

Rrader

Дата 17.9.2007, 02:39 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Код


Procedure TForm1.Button1Click(Sender: TObject);
Var
  Keys: TStringList;
  R: TRegistry;
  I: Integer;
Begin
  R := Tregistry.Create;
  R.RootKey := HKEY_LOCAL_MACHINE;
  R.OpenKey('Software', True);
  R.OpenKey('Classes', True);
  R.OpenKey('MIME', True);
  R.OpenKey('Database', True);
  R.OpenKey('Codepage', True);
  Keys := TStringList.Create;
  R.GetKeyNames(Keys);
  For I := 0 To Keys.Count - 1 Do
  Begin
    R.OpenKey(Keys.Strings[I], False);
    ListBox1.Items.Add(R.ReadString('Description'));
    R.CloseKey;
    R.OpenKey('Software', True);
    R.OpenKey('Classes', True);
    R.OpenKey('MIME', True);
    R.OpenKey('Database', True);
    R.OpenKey('Codepage', True);
  End;
  ListBox1.Sorted := True;
  Keys.Free;
  R.Free;
End;

--------------------

Let's do this quickly!
Rest in peace, Vit!

Alexeyt

Дата 17.9.2007, 09:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2

Именно это я и делаю. Читаю значения "Description".
Кажется, надо работать с MLang.dll. Ссылка в MSDN.

Rrader

Дата 18.9.2007, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Ты из другого ключа берешь, а уменя список полный smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »