приложение подвисает, при попытке обновить шрифты - Общие вопросы Delphi

AnTe · 07.12.2009, 08:28

при старте программы выполняется следующий код:

Код:

FontFile := 'C:\GOST_A.TTF'

AddFontResourceEx(PChar(FontFile), FR_PRIVATE, 0)
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

на последней строке приложение зависает

Причём, всё время работало, уже несколько месяцев

Перестало работать неожиданно, причину даже найти не могу. Перед этим закрыл и открыл заново делфю

. Exe-файл, запускаемый отдельно, ведёт себя точно так же.

Трассировщиком выяснил, кто виновник. закомментировал строку - всё работает.

Полагаю, перезагрузка системы и т.п. может решить проблему, однако, в чём она? А если у пользователя потом возникнет?

Что это может быть?

raxp · 07.12.2009, 09:08

странно это все... ну дык postmessage замени.

AnTe · 07.12.2009, 11:36

ну да, конечно, заменил на PostMessage
True, кстати, результат....

а почему SendMessage зависает - не понятно.

Проблема именно в широковещательности

Варианты типа SendMessage(HWND_BROADCAST, WM_SIZE {тут заменил}, 0, 0); - так же не работают

А вот когда HWND_BROADCAST меняю на что-нибудь другое - всё ОК

07.12.2009, 08:28	#1
AnTe Форумчанин Регистрация: 25.09.2008 Сообщений: 209	приложение подвисает, при попытке обновить шрифты при старте программы выполняется следующий код: Код: `FontFile := 'C:\GOST_A.TTF' AddFontResourceEx(PChar(FontFile), FR_PRIVATE, 0) SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);` на последней строке приложение зависает Причём, всё время работало, уже несколько месяцев Перестало работать неожиданно, причину даже найти не могу. Перед этим закрыл и открыл заново делфю . Exe-файл, запускаемый отдельно, ведёт себя точно так же. Трассировщиком выяснил, кто виновник. закомментировал строку - всё работает. Полагаю, перезагрузка системы и т.п. может решить проблему, однако, в чём она? А если у пользователя потом возникнет? Что это может быть?

07.12.2009, 09:08	#2
raxp Старожил Регистрация: 29.09.2009 Сообщений: 9,713	странно это все... ну дык postmessage замени. Разработки и научно-технические публикации :: Видеоблог :: Твиттер Radar systems engineer & Software developer of industrial automation

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ощибка при попытке заменить компонент	ogg	Помощь студентам	3	16.07.2009 18:57
При компилировании (F9) подвисает Delphi	Polotenchik	Общие вопросы Delphi	3	24.06.2009 13:44
ошибка при попытке запустить программу	Fellot	Общие вопросы Delphi	3	23.04.2009 21:23
Ошибка при попытке вывода полей из таблицы в ORACLE	older	Общие вопросы Delphi	2	04.06.2008 17:26
ошибка VBA при попытке использовать свойство или метод	chanchikela	Microsoft Office Access	0	26.03.2008 23:17

07.12.2009, 11:36	#3
AnTe Форумчанин Регистрация: 25.09.2008 Сообщений: 209	ну да, конечно, заменил на PostMessage True, кстати, результат.... а почему SendMessage зависает - не понятно. Проблема именно в широковещательности Варианты типа SendMessage(HWND_BROADCAST, WM_SIZE {тут заменил}, 0, 0); - так же не работают А вот когда HWND_BROADCAST меняю на что-нибудь другое - всё ОК