Refresh Windows Explorer! Как?

[NoNameMan]

Здравствуйте! Уже давно написал программку для скрытия/отображения скрытых файлов и папок. Делал через реестр ("HKCU\Software\Microsoft\Windows\C urrentVersion\Explorer\Advanced" параметр "Hidden"), все работает, но после подмены параметра в реестре необходимо нажать F5 что-бы увидеть результат (при том если нажать F5 на рабочем столе обновится только рабочий стол). Хотелось бы автоматизировать процесс обновления. В гугле искал и очень много, но ничего толкового не нашел! Думаю у винды должен быть API на этот случай, пробовал "SHChangeNotify" но получилось обновить только ассоциации. Подскажите как все таки заставить Explorer считать параметр в реестре и отобразить/скрыть файлы.

[min@y™]

сообщение всем окнам обновить курсоры:

PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('HKEY_CURRENT_USER\Control Panel\Cursors')));

попробуй заменить здесь ключ реестра на свой.

[NoNameMan]

Сообщение от min@y™

сообщение всем окнам обновить курсоры:

PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('HKEY_CURRENT_USER\Control Panel\Cursors')));

попробуй заменить здесь ключ реестра на свой.

К сожалению не работает.

Вот код кнопки который я использую:

uses Registry;

....

procedure TForm1.Button1Click(Sender: TObject);
var reg:TRegistry;
    key:string;
    i:integer;
begin
reg:= TRegIniFile.Create;
reg.RootKey:=HKEY_CURRENT_USER;
key:= 'Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced';
if reg.KeyExists(key) then
begin
reg.OpenKey(key, false);
i:= reg.ReadInteger('Hidden');
if i=2 then reg.WriteInteger('Hidden', 1);
if i=1 then reg.WriteInteger('Hidden', 2);
reg.CloseKey;
reg.Free;
end;
end;

[min@y™]

Вот код кнопки который я использую

Чото я не вижу тут вызова

PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced')));

[NoNameMan]

Сообщение от min@y™

Чото я не вижу тут вызова

PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced')));

Правильно, код вызова я убрал так-как он не работает. А свой код добавил сюда для наглядности.

[min@y™]

Правильно, код вызова я убрал так-как он не работает. А свой код добавил сюда для наглядности.

ну и славненько, ну и хорошо!

[NoNameMan]

Сообщение от min@y™

ну и славненько, ну и хорошо!

Попробовал еще раз, как говориться на всякий. Ничего не обновляется. Что еще можно попробовать?

procedure TForm1.Button1Click(Sender: TObject);
var reg:TRegistry;
    key:string;
    i:integer;
begin
reg:= TRegIniFile.Create;
reg.RootKey:=HKEY_CURRENT_USER;
key:= 'Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced';
if reg.KeyExists(key) then
begin
reg.OpenKey(key, false);
i:= reg.ReadInteger('Hidden');
if i=2 then reg.WriteInteger('Hidden', 1);
if i=1 then reg.WriteInteger('Hidden', 2);
reg.CloseKey;
reg.Free;
PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced')));
end;
end;

[min@y™]

Что еще можно попробовать?

ну найди все окна эксплорера и пошли им кнопку ф5.

[NoNameMan]

Сообщение от min@y™

ну найди все окна эксплорера и пошли им кнопку ф5.

Это, я оставил на крайний случай. Я думаю что у винды есть API на данный случай. Написал сюда в надежде что подскажут именно API.

[min@y™]

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

Это, я оставил на крайний случай. Я думаю что у винды есть API на данный случай. Написал сюда в надежде что подскажут именно API.

Есть Апи. Читай.