Список окон с кнопкой на панели задач

Delphi , Программа и Интерфейс , Приложения чужие

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function GetText(Wnd: HWND): string;
 var
    textlength: Integer;
   Text: PChar;
 begin
   textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
   if textlength = 0 then Result := ''
   else
   begin
     GetMem(Text, textlength + 1);
     SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));
     Result := Text;
     FreeMem(Text);
   end;
 end;

 function EnumWindowsProc(Wnd: HWND; lParam: lParam): BOOL; stdcall;
 begin
   Result := True;
   if (IsWindowVisible(Wnd) or IsIconic(wnd)) and
     ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
     (GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and
     (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then
     Form1.Listbox1.Items.Add('Handle: ' + IntToStr(Wnd) + ',Text:  ' + GetText(Wnd));
 end;


 procedure TForm1.Button1Click(Sender: TObject);
 var
   Param: Longint;
 begin
   EnumWindows(@EnumWindowsProc, Param);
 end;

Программный код на Delphi, предназначенный для извлечения списка окон на панели задач с соответствующими текстами. Функция GetText извлекает текст из указанного окна, а функция EnumWindowsProc перебирает все окна, удовлетворяющие определенным критериям (видимые или иконизированные, не дочерние окна, не инструментальные), и добавляет их handle и текст в список.

Разбивка на части:

• Функция GetText отправляет сообщение WM_GETTEXTLENGTH в указанное окно для получения длины текста. Если длина текста равна 0, функция возвращает пустую строку. В противном случае она выделяет память для текста, отправляет сообщение WM_GETTEXT с выделенной размерностью +1 (для null-терминации) и затем освобождает память.

• Функция EnumWindowsProc вызывается функцией EnumWindows для обработки каждого окна в системе. Она проверяет, удовлетворяет ли окно определенным критериям: оно должно быть видимым или иконизированным, не дочерним окном и не инструментальным. Если это так, она добавляет его handle и текст (извлеченный с помощью GetText) в список.

• Процедура Button1Click вызывает функцию EnumWindows с функцией EnumWindowsProc как ее callback, что начинает процесс перебора окон.

В улучшенной версии кода:

• Переменная Param в процедуре Button1Click не используется и может быть удалена.
• Функция GetText теперь использует динамический массив (SetLength) вместо ручного выделения памяти и освобождения.
• Функция EnumWindowsProc теперь добавляет handle окна и текст в список в одной строке с помощью метода Add.

В статье описана реализация функции EnumWindows для поиска окон на панели задач, которые не являются инструментальными и не скрыты.

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

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

:: Главная :: Приложения чужие ::