Как при вызове стандартной таблицы символов WinExec('charmap.exe', SW_SHOW) задавать открытие нужного шрифта в этом окошке, например с именем "Symbol" и как выбранный символ после закрытия таблицы символов внести в позицию каретки в компоненте Edit1, например так:
procedure Form1.ButtonClick(......);
var Symbol : WideString;
begin
Как-то задать начальные параметры открытия таблицы символов
WinExec('charmap.exe', SW_SHOW); потом ее вызвать
как-то уопределить положение каретки
Edit1.Text := Symbol; внести символ в редактируемое поле в положение каретки.
end;
попробовал так задать открытие нужного шрифта:
procedure TForm1.ElGraphicButton2Click(Sender: TObject);
begin
ShellExecute(Handle, 'OPEN', 'charmap.exe', PAnsiChar('Times New Roman'), nil, SW_SHOW);
end;
но ничего не получается.
А можно вообще задать открытие нужного шрифта и диапазон его символов по их кодам? Пожалуйста, с примером, если не сложно.
Спасибо всем!
Есть новые 
Нет новых [134433 +22][b:0][p:0.001]