Как вызвать стандартную таблицу символов Windows программно?

[SkAndrew]

Добрый вечер!
Как вызвать стандартную таблицу символов Windows программно?
Спасибо всем"!

[Dj_smart]

Вот:
winexec('charmap.exe',sw_show);
и будет тебе счастье!

[vitalik007]

Вот тебе исходник

[SkAndrew]

Спасибо за ответы и за исходник.
А можно ли при вызове стандартной таблицы символов WinExec('charmap.exe', SW_SHOW) задавать открытие нужного шрифта в этом окошке, например с именем "Symbol" и как выбранный символ после закрытия таблицы символов внести в позицию каретки в компоненте Edit1, например так:

procedure Form1.ButtonClick(......);
var Symbol : WideString;
begin
Как-то задать начальные параметры открытия таблицы символов
WinExec('charmap.exe', SW_SHOW); потом ее вызвать
как-то уопределить положение каретки
Edit1.Text := Symbol; внести символ в редактируемое поле в положение каретки.
end;

Спасибо.

[SkAndrew]

попробовал так задать открытие нужного шрифта:

procedure TForm1.ElGraphicButton2Click(Sender : TObject);
begin
ShellExecute(Handle, 'OPEN', 'charmap.exe', PAnsiChar('Times New Roman'), nil, SW_SHOW);
end;

но ничего не получается.
А можно вообще задать открытие нужного шрифта и диапазон его символов по их кодам?
Спасибо всем!

[vitalik007]

измени мой исходник чтобы можно было при запуске в параметрах задавать шрифт

[SkAndrew]

спасибо, это понятно (с исходником), но мне хотелось бы разобраться со стандартной таблицей символов. Я нашел еще такую функцию как ShellExecuteEx, но не могу понять как там можно измененить параметры, чтобы выполнить мою задачу открытие нужного шрифта и диапазона символов. Подскажите небольшим примером как это можно сделать. Спасибо всем.

[alexBlack]

Насколько я знаю, CharMap.exe не обрабатывает параметры.

Перечитал обе темы - про 34 символа и про CharMap. Может поделитесь секретом, что вы такое хотите сделать. Показать грид со всеми символами, выбрать один и занести его в edit ? как в Word - Вставка/Символ ?

[SkAndrew]

Секрета никакого нет. Именно как в ворде - вставка нужных символов при необходимости. Есть идеи? Спасибо.

[mihali4]

Сообщение от SkAndrew

Секрета никакого нет. Именно как в ворде - вставка нужных символов при необходимости. Есть идеи? Спасибо.

Так к чему лишние потуги?
Или в ворде вам удается вставить символ "автоматически", не выбирая символьный набор, не копируя в буфер выбранный символ и не вставляя его из буфера в текст?