Простая программа: на форме кнопка, компонент OpenDialog1 и поле Edit1.
При нажатии на кнопку
if (OpenDialog1.Execute) and (FileExists(OpenDialog1.FileName)) then
edit1.Text:=OpenDialog1.FileName
так вот запускаю программу, нажимаю на кнопку и открывается OpenDialog отображая содержимое рабочего стола. Навожу мышкой на какой либо файл (не выбираю) - при этом появляется подсказка(размер, тип, дата создания и т.п.). После нажимаю отмена и закрываю окно OpenDialog. После повторяю эти же операции заново. И вот когда я второй раз пытаюсь получить подсказку о файле на рабочем столе вся программа выключается автоматом без сообщений.
Помогите?
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
09-03-2007 07:51 | Сообщение от автора вопроса
Перерыл много информации, но так и не пойму - почему указанная проблема появляется в программе "блокнот", но не появляется в других программах, которые используют в принципе то же самое окно открытия файла. Например 1С, Word, у самой среды Delphi также все работает отлично. Может они используют различные подходы к открытию файла или ?...
Ни мог ли кто подсказать как вызвать окно открытия файла напрямую через WinAPI (желательно готовый протестированный код, я не ленюсь, даже знаю команды с помошью, которых это делается - просто не могу вехать в назначение параметров команд).
Провел сам эксперимент. Как и ожидается, никакого глюка нет. Стоит несколько расширений оболочки в том числе PicaView (мне кажется, глючная вещь, но все руки не дойдут удалить), Windows XP SP 2, Delphi 6.0, на форме - только OpenDialog, Edit1 и кнопка для вызова Вашего кода.
У меня winXP SP2 со всеми обновлениями(лицензионный) и Дельфи 7(пиратский).
Также пробую на 2003(пиратский) - те же проблемы. А вот на некоторых машинах код работает корректно (WinXP без обновлений пиратский)
Люди говорят что на дельфи 7 у них все вроде нормально работает без проблем. Только что по почте получил такуюже программу написанную на дельфи 7 и все те же проблемы. Автор говорит что на его машине все работает.
Этот баг проявляется после установки какого нибудь глючного расширения оболочки, например AudioShell. На свежепоставленной винде никаких глюков не наблюдается. В чём конкретно причина я не знаю, но возможно истина где-то тут http://www.mustangpeak.net/hooks_fix.htm, хотя я не уверен.
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.