GetOpenFileName - два фильтра

fireday · Регистрация: 17.04.2013

Студворк — интернет-сервис помощи студентам

Использую api GetOpenFileName для вызова диалога выбора файла
Как сделать один фильтр по двум расширениям? (*.GIF *.7z)

Еще вопрос: есть ли подобный диалог выбора католога, а не файла
Сейчас использую SHBrowseForFolder, что не очень удобно в плане использования юзером

@The trick · 21.11.2013, 17:10

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

А если передам параметром при вызове, то подвисает после закрытия (как будто диалог еще не закрылся)

Это не может влиять. Значит что-то не то передаешь.

fireday · 21.11.2013, 17:35 **[ТС]**

The trick, передаваемой переменной не надо тип указывать
Если указываю Long, то подвисает, убираю - все ок
т.е. вот так работает без проблем

Visual Basic
1
Public Function PickFolder(ByVal hwndOwner) As String

какой тип у hwnd? ведь Long... почему когда указываю подвисает?

@The trick · 21.11.2013, 17:38

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

The trick, передаваемой переменной не надо тип указывать
Если указываю Long, то подвисает, убираю - все ок
т.е. вот так работает без проблем

Что-то ты не то делаешь. У меня все работает отлично хоть как не передаю.

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

какой тип у hwnd? ведь Long... почему когда указываю подвисает?

Да Long. Покажи весь код вместе с вызовом

fireday · 21.11.2013, 19:16 **[ТС]**

The trick, все что я изменил в твоем примере:функцию PickFolder

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

Visual Basic
1
2
3
Public Function PickFolder(ByVal hwndOwner As Long) As String
* With OFN
* * .hwndOwner = hwndOwner

и вызов из формы

Visual Basic
1
modGetOpenFolder.PickFolder Me.hwnd

больше ничего не менял - смысл давать весь код нету

После чего и происходит подвисание. А если убрать тип Long передаваемой переменной hwndOwner, то все работает
Так же можно задать параметр .hwndOwner = Form1.hwnd, так подвисание не происходит

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

Добавлено через 59 минут
после перезагрузки компа стало подвисать и при

Visual Basic
1
2
3
Public Function PickFolder(ByVal hwndOwner As Long) As String
* With OFN
* * .hwndOwner = hwndOwner

а так же при

Visual Basic
1
.hwndOwner = frmTest.hwnd

тоже стало подвисать
в коде ничего не менял...
Как так...

@The trick · 21.11.2013, 19:33

Попробуй вместо

Visual Basic
1
2
3
If Len(mPath) Then
    DestroyWindow hwndDlg
End If

Написать

Visual Basic
1
2
3
If Len(mPath) Then
    EndDialog hwndDlg, 0
End If

fireday · 21.11.2013, 19:51 **[ТС]**

The trick, заработало! спасибо!

@kreotodr · 23.01.2015, 10:00

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

Ну это вы не искали! Есть код системных диалогов, между прочим файл датирован 1998 г.
"ShowOpen"
"ShowSave"
"ShowColor"
"ShowFont"
"ShowPrinter"
"ShowPageSetupDlg"
Всего 6 штук, столько надо кнопок положить на форму

Добрый день Всем!
Как всегда отдельное спасибо за ответы и помощь The trick, Pro_grammer
Коллеги подскажите как устранить одну неприятную вещь. А именно. При открытии стандартного диалога выбора файла происходит смена текущей директории, (возвращает переменная CurDir).

То-есть, если после вызова диалога и выбора файлов. программа сохраняет какие-то настройки, скажем в INI файл, или пытается найти INI файл, который лежит в одной папке с самой программой, она естественно его не видит...

@Апострофф · 23.01.2015, 10:11

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

пытается найти INI файл, который лежит в одной папке с самой программой, она естественно его не видит...

App.Path спасёт.

@The trick · 23.01.2015, 18:23

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

При открытии стандартного диалога выбора файла происходит смена текущей директории

https://www.cyberforum.ru/post6591578.html

@kreotodr · 23.01.2015, 20:14

Трик как всенда респектище!
Оффтоп нужен код на появления уведомления в системном трее....Если есть, конечно....

@The trick · 23.01.2015, 20:28

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

нужен код на появления уведомления в системном трее....Если есть, конечно....

Один вопрос - одна тема и более развернуто.

@kreotodr · 23.01.2015, 21:46

Спасибо уже нашел...)))

@kreotodr · 25.01.2015, 09:35

Сообщение от The trick

Сообщение от kreotodr
При открытии стандартного диалога выбора файла происходит смена текущей директории
Как избежать смены текущей папки при работе с файлами?

Простите, как правильно использовать данный OFN_NOCHANGEDIR флаг?
Public Const OFN_NOCHANGEDIR = &H8 ???

Добавлено через 16 минут
пробовал, не работает на Win7

@Апострофф · 26.01.2015, 08:19

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

всенда

Объясните один раз - для чего нужен CURDIR и CURDRIVE вашей программе?

@kreotodr · 26.01.2015, 12:29

Все достаточно просто.
1. загрузили программу из "c:\PRG\1.exe"
2. открыли файл исходных из "d:\tmp\"
3. сохраняем результат в папку по умолчанию с программой "c:\PRG\1.rez"

результат файл будет создан в папке "d:\tmp\1.rez"

@Апострофф · 26.01.2015, 12:42

Сообщение от Апострофф

App.Path спасёт.

И не стоит уповать на папку по умолчанию (CURDIR т.е.).
Её может поменять не только ваша программа! Тогда точно концов не найдете.

fireday · 24.04.2015, 20:55 **[ТС]**

Подниму тему

При выборе каталога методом выше, если вписать имя несуществующего каталога в окно ввода имени файла, происходит вылет -> скрыл окно ввода имени для каталога

Visual Basic
1
2
Private Const cmb13 = &H47C
SendMessage hwndDlg, CDM_HIDECONTROL, cmb13, ByVal 0&

но тему поднял по другой причине:

как лечить? может просто сделать enabled=false? но тогда приятные возможности заблокируются
и, если прятать, какую команду отсылать?
код окна:

Visual Basic
1
Private Const cmb2 = &H471

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943

	GetOpenFileName - два фильтра 07.11.2013, 22:31. Показов 6847. Ответов 56 Метки нет (Все метки) Использую api GetOpenFileName для вызова диалога выбора файла Как сделать один фильтр по двум расширениям? (.GIF .7z) Еще вопрос: есть ли подобный диалог выбора католога, а не файла Сейчас использую SHBrowseForFolder, что не очень удобно в плане использования юзером 0

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943
	21.11.2013, 19:51 [ТС]
	The trick, заработало! спасибо! 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	23.01.2015, 20:14
	Трик как всенда респектище! Оффтоп нужен код на появления уведомления в системном трее....Если есть, конечно.... 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	23.01.2015, 21:46
	Спасибо уже нашел...))) 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	26.01.2015, 12:29
	Все достаточно просто. 1. загрузили программу из "c:\PRG\1.exe" 2. открыли файл исходных из "d:\tmp\" 3. сохраняем результат в папку по умолчанию с программой "c:\PRG\1.rez" результат файл будет создан в папке "d:\tmp\1.rez" 0