Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
2 / 2 / 0
Регистрация: 19.01.2013
Сообщений: 74

Закрыть папку, открытую в проводнике

18.06.2013, 09:50. Показов 3322. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите, кто может, как программно закрыть папку открытую в проводнике
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.06.2013, 09:50
Ответы с готовыми решениями:

Как обновить открытую папку (проводник) или по другому (F5)?
может кто поможет? в поиске ответов так и не ношел есть только для рабочего стола а для открытых...

Открыть папку в проводнике Windows
Есть путь к файлу в компоненте Filelistbox, как используя этот путь открыть папку с этим файлом,...

Открыть папку в проводнике
Написал код для открытия папки в проводнике. При указании адреса вручную (напр. 'C:\Lazarus') всё...

6
 Аватар для Jazon_deenAlt
4117 / 999 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
18.06.2013, 10:11
если я правильно все понял то вот вам в помощь FindWindow
1
2 / 2 / 0
Регистрация: 19.01.2013
Сообщений: 74
18.06.2013, 10:17  [ТС]
А если закрытие по пути к папки, если она открыта?
0
 Аватар для Jazon_deenAlt
4117 / 999 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
18.06.2013, 10:21
не знаю...
0
8 / 8 / 0
Регистрация: 15.10.2016
Сообщений: 11
25.11.2025, 11:15
не знаю как на Delphi это правильно писать, но вот так

объявление win api функций:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (lpClassName As String, lpWindowName As String) As Integer - [ищет окно по заголовку, у папки проводника это путь к папке]

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (hwnd As IntPtr, wMsg As Integer, wParam As IntPtr, lParam As IntPtr) As Integer - [прога может зависнуть, если окно не отвечает, прога ждет возврата из функции.]
или
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (hwnd As IntPtr, wMsg As Integer, wParam As IntPtr, lParam As IntPtr) As Integer - [прога не ждет завершения этой функции, поэтому не зависнет, сообщение ставится в очередь окна]

Public Const WM_CLOSE = &H10

применение:

Visual Basic
1
2
3
4
        Dim x1 As Integer = FindWindow(vbNullString, DIR_SR & "\CHROME_FILES\АРХИВ")
        If x1 <> 0 Then
            SendMessage(x1, WM_CLOSE, 0, 0)
        End If
0
Администратор
Эксперт .NET
 Аватар для OwenGlendower
18240 / 14154 / 5366
Регистрация: 17.03.2014
Сообщений: 28,841
Записей в блоге: 1
25.11.2025, 15:00
Цитата Сообщение от Nikventura Посмотреть сообщение
FindWindow(vbNullString, DIR_SR & "\CHROME_FILES\АРХИВ")
Вы понимаете что в системе могут другие окна кроме Проводника с таким заголовком? Необходимо другие параметры учесть. Возможно имя класса. Или убедиться что окном владеет explorer.exe.

Цитата Сообщение от Nikventura Посмотреть сообщение
прога может зависнуть, если окно не отвечает, прога ждет возврата из функции.
Прога всегда ждет возврата из функции. Дело в другом - функция не вернет управление пока не доставит сообщение.

Цитата Сообщение от Nikventura Посмотреть сообщение
прога не ждет завершения этой функции, поэтому не зависнет, сообщение ставится в очередь окна
Снова неверный комментарий насчет завершения функции. Она его ждет. Функция ставит сообщение в очередь и, не дожидаясь доставки, возвращает управление.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33187 / 21484 / 8232
Регистрация: 22.10.2011
Сообщений: 36,862
Записей в блоге: 12
25.11.2025, 16:21
Лучший ответ Сообщение было отмечено droider как решение

Решение

Не по теме:

12 лет прошло...

Я бы вообще не использовал FindWindow, лучше уже перечислить все окна именно Эксплорера через IShellWindows, и найти среди них нужное (сравнение пути к папке и LocationURL), с которым потом делать, что нужно...
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.11.2025, 16:21
Помогаю со студенческими работами здесь

Как добавить текст в открытую станицу веббраузера delphi
Как добавить текст в открытую станицу веббраузера delphi пример

Как программно заполнить строку страницы, открытую в WebBrowser
Грубо говоря, мне вон туда нужно запихнуть текст Далее нажимается собственно кнопка &quot;Войти&quot;,...

Получить последнюю открытую форму
Собственно вопрос в шапке Попробовал написать, но что-то совсем не пашет. Процедура должна...

Сохранить открытую в Chromium страницу
Всем привет! Возникла необходимость сохранить откурытую в Chromium страницу. Не исходный код, а...

Закрыть папку (проводник) программно
Всем привет! Задача - закрыть папку программным путем. Пробовал по заголовку procedure...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru