Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > Получить список кодировок в MSIE


Автор: Alexeyt 16.9.2007, 13:45
Пытаюсь получить список кодировок в 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 такой:

http://imageshack.us

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

Автор: Rrader 17.9.2007, 02:39
Код

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;

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

Автор: Rrader 18.9.2007, 14:17
Ты из другого ключа берешь, а уменя список полный smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)