Как задать шрифт и диапазон его символов в charmap.exe?

← →
Dr.Andrew (2008-04-13 12:41) [0]

Как при вызове стандартной таблицы символов 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;
но ничего не получается.
А можно вообще задать открытие нужного шрифта и диапазон его символов по их кодам? Пожалуйста, с примером, если не сложно.
Спасибо всем!

← →
tesseract © (2008-04-13 18:57) [1]

Самому написать этот charmap не проще ? Там делов -то.

Как задать шрифт и диапазон его символов в charmap.exe? Найти похожие ветки