Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.10.2018, 21:48   #1
falsebegin
Форумчанин
 
Регистрация: 23.11.2016
Сообщений: 100
По умолчанию как обновить рабочий стол и локальные диски через Button1

Здравствуйте как обновить локальные диски?

пример нашел рабочий код для рабочего стола
Код:
var h : THandle;
begin
h := FindWindow('ProgMan', nil);
h := GetWindow(h, GW_CHILD);
PostMessage(h, WM_KEYDOWN, VK_F5, 0);
falsebegin вне форума Ответить с цитированием
Старый 09.10.2018, 07:33   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

ну, и? код рабочий, как вы утверждаете!
а мы сидим и радуемся за вас, мол, вот, ещё один самостоятельный программер в наших рядах. просто вам наши аплодисменты не слышны через монитор, уж извините...
или у вас какой-то другой вопрос возник по данному коду? так напишите, тут телепатов нет, мысли читать не умеем, пока что...
вам надо его в таймер поставить, чтоб постоянно обновлялось и были видны все изменения тут же?
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 09.10.2018, 07:37   #3
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

VK_F5 моветон.
Прочитайте про SHChangeNotify.
kvitaliy вне форума Ответить с цитированием
Старый 09.10.2018, 15:22   #4
falsebegin
Форумчанин
 
Регистрация: 23.11.2016
Сообщений: 100
По умолчанию

Цитата:
Сообщение от NetSpace Посмотреть сообщение
ну, и? код рабочий, как вы утверждаете!
а мы сидим и радуемся за вас, мол, вот, ещё один самостоятельный программер в наших рядах. просто вам наши аплодисменты не слышны через монитор, уж извините...
или у вас какой-то другой вопрос возник по данному коду? так напишите, тут телепатов нет, мысли читать не умеем, пока что...
вам надо его в таймер поставить, чтоб постоянно обновлялось и были видны все изменения тут же?
Это код работает только для рабочего стола пример на диске C:\ не работает
мне бы кодик правильный сам особо не разбираюсь вот и спрашиваю может кто поможет?
falsebegin вне форума Ответить с цитированием
Старый 09.10.2018, 15:27   #5
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

у себя открыл диск С и нажал F5 - обновилось... что у вас за система на компе?
а вот открыл другую папку и снова нажал - обновилась только папка, а диск С - всё мёртво. вывод - надо либо посылать окну сообщение о нажатии клавиши с номером 116 (VK_F5) через PostMessage(хэндл обновляемого окна,116,0,0)
либо как советуют выше, через SHChangeNotify, чтоб вся система обновилась
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.

Последний раз редактировалось NetSpace; 09.10.2018 в 15:38.
NetSpace вне форума Ответить с цитированием
Старый 09.10.2018, 15:31   #6
falsebegin
Форумчанин
 
Регистрация: 23.11.2016
Сообщений: 100
По умолчанию

через прогу надо обновить а не через windows
falsebegin вне форума Ответить с цитированием
Старый 09.10.2018, 16:09   #7
falsebegin
Форумчанин
 
Регистрация: 23.11.2016
Сообщений: 100
По умолчанию

RAD XE7 пробовал тоже не работает
Код:
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
falsebegin вне форума Ответить с цитированием
Старый 11.10.2018, 04:19   #8
falsebegin
Форумчанин
 
Регистрация: 23.11.2016
Сообщений: 100
По умолчанию

блин чето башка вообще перестал варить пробовал разные методы что то не катит или плохо ищу по гуглу?

Код:
SHChangeNotify(SHCNE_MKDIR, SHCNF_PATH, PWideChar('C:\'), nil);
почему не хочет обновить все системные папки? если кто знает делитесь кодом пожалуйста
falsebegin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
удаленный рабочий стол через Делфи или Сшарп crom Работа с сетью в Delphi 9 17.01.2014 12:32
как отформатировать локальные диски??? alex(21) Операционные системы общие вопросы 8 11.11.2009 09:56
Запустить файл *.xml через удаленный рабочий стол komar73 Microsoft Office Excel 2 01.07.2009 10:19
как обновить робочий стол через Button1 beegl Общие вопросы Delphi 7 30.05.2008 11:39
Как изменить рабочий стол через sendmessage Romanbl4 Win Api 6 18.07.2007 14:35