как обновить рабочий стол и локальные диски через Button1 - Общие вопросы Delphi

falsebegin · 08.10.2018, 21:48

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

пример нашел рабочий код для рабочего стола

Код:

var h : THandle;
begin
h := FindWindow('ProgMan', nil);
h := GetWindow(h, GW_CHILD);
PostMessage(h, WM_KEYDOWN, VK_F5, 0);

NetSpace · 09.10.2018, 07:33

ну, и? код рабочий, как вы утверждаете!
а мы сидим и радуемся за вас, мол, вот, ещё один самостоятельный программер в наших рядах. просто вам наши аплодисменты не слышны через монитор, уж извините...
или у вас какой-то другой вопрос возник по данному коду? так напишите, тут телепатов нет, мысли читать не умеем, пока что...
вам надо его в таймер поставить, чтоб постоянно обновлялось и были видны все изменения тут же?

kvitaliy · 09.10.2018, 07:37

VK_F5 моветон.
Прочитайте про SHChangeNotify.

falsebegin · 09.10.2018, 15:22

Цитата:

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

ну, и? код рабочий, как вы утверждаете!
а мы сидим и радуемся за вас, мол, вот, ещё один самостоятельный программер в наших рядах. просто вам наши аплодисменты не слышны через монитор, уж извините...
или у вас какой-то другой вопрос возник по данному коду? так напишите, тут телепатов нет, мысли читать не умеем, пока что...
вам надо его в таймер поставить, чтоб постоянно обновлялось и были видны все изменения тут же?

Это код работает только для рабочего стола пример на диске C:\ не работает
мне бы кодик правильный сам особо не разбираюсь вот и спрашиваю может кто поможет?

NetSpace · 09.10.2018, 15:27

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

falsebegin · 09.10.2018, 15:31

через прогу надо обновить а не через windows

falsebegin · 09.10.2018, 16:09

RAD XE7 пробовал тоже не работает
Код:

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

falsebegin · 11.10.2018, 04:19

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

Код:

SHChangeNotify(SHCNE_MKDIR, SHCNF_PATH, PWideChar('C:\'), nil);

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

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);`

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

09.10.2018, 15:27	#5
NetSpace Участник клуба Регистрация: 03.06.2009 Сообщений: 1,869	у себя открыл диск С и нажал F5 - обновилось... что у вас за система на компе? а вот открыл другую папку и снова нажал - обновилась только папка, а диск С - всё мёртво. вывод - надо либо посылать окну сообщение о нажатии клавиши с номером 116 (VK_F5) через PostMessage(хэндл обновляемого окна,116,0,0) либо как советуют выше, через SHChangeNotify, чтоб вся система обновилась Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится. Последний раз редактировалось NetSpace; 09.10.2018 в 15:38.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
удаленный рабочий стол через Делфи или Сшарп	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

09.10.2018, 07:37	#3
kvitaliy Участник клуба Регистрация: 17.05.2011 Сообщений: 1,660	VK_F5 моветон. Прочитайте про SHChangeNotify.

09.10.2018, 15:31	#6
falsebegin Форумчанин Регистрация: 23.11.2016 Сообщений: 100	через прогу надо обновить а не через windows

09.10.2018, 16:09	#7
falsebegin Форумчанин Регистрация: 23.11.2016 Сообщений: 100	RAD XE7 пробовал тоже не работает Код: `SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);`

11.10.2018, 04:19	#8
falsebegin Форумчанин Регистрация: 23.11.2016 Сообщений: 100	блин чето башка вообще перестал варить пробовал разные методы что то не катит или плохо ищу по гуглу? Код: `SHChangeNotify(SHCNE_MKDIR, SHCNF_PATH, PWideChar('C:\'), nil);` почему не хочет обновить все системные папки? если кто знает делитесь кодом пожалуйста