Как заставить Рабочий Стол обновится 2

Delphi , Рабочий стол , Рабочий стол

procedure RefreshDesktop;
var
  hDesktop: HWND;
begin
  hDesktop := FindWindowEx(FindWindowEx(
    FindWindow('Progman', 'Program Manager'), 0,
    'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
  PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
  PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);
end;

Here is the translation of the text into Russian:

Классический код Delphi! Процедура RefreshDesktop предназначена для обновления рабочего стола Windows Explorer (или "Рабочий стол" на русском языке). Вот разбивка того, что она делает: 1. Она находит handle (HWND) окна рабочего стола с помощью серии вызовов: * FindWindow('Progman', 'Программный менеджер'): Найдет основное окно Программного менеджера. * FindWindowEx с предыдущим результатом как аргументом: Найдет дочернее окно с классом 'SHELLDLL_DefView' (панorama рабочего стола). * Еще один вызов FindWindowEx: Найдет дочернее окно с классом 'SysListView32' (список просмотра) внутри панорамы рабочего стола. 2. Она отправляет два сообщения в найденное окно рабочего стола: * PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0): Симулирует нажатие клавиши F5 (Обновить) вниз. Это должно вызвать обновление содержимого рабочего стола. * PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31): Симулирует отпускание клавиши F5.

Цель отправки этих сообщений - имитировать ввод пользователя и заставить рабочий стол обновиться содержимым.

Альтернативное решение: Если вы хотите более современный подход, можно использовать функцию Windows API SHRefreshWindows (из shellapi.dll) для обновления рабочего стола программно. Функция не требует имитации ввода клавиатуры:

procedure RefreshDesktop;
var
  hDesktop: HWND;
begin
  hDesktop := FindWindowEx(FindWindow('Progman', 'Программный менеджер'), 0, 'SHELLDLL_DefView', '');
  SHRefreshWindows(hDesktop);
end;

В этом альтернативном решении SHRefreshWindows принимает handle окна рабочего стола в качестве аргумента и обновляет его напрямую. Обратите внимание, что оба решения могут не работать в всех ситуациях или на всех версиях Windows. Всегда тестировайте свой код перед использованием его в производстве.

В статье описывается процедура RefreshDesktop, которая позволяет обновить содержимое рабочего стола в операционной системе Windows, используя функцию FindWindowEx и отправку сообщения WM_KEYDOWN.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Рабочий стол ::