Enumwindows Delphi Пример

EnumWindows - это функция в WinAPI, которая позволяет перебирать дескрипторы каждого окна в системе Windows. Delphi обеспечивает прекрасную обертку для этой функция, позволяющую перебирать окна с помощью обратного вызова.

Чтобы использовать функцию EnumWindows в Delphi, необходимо включить модуль Windows:

uses Windows;

Затем нужно объявить обратный вызов (callback) для функции EnumWindows:

function EnumWindowsProc(hWnd: HWND; lParam: LPARAM): Bool; stdcall;begin  // Обработка окна  Result := True; // продолжить переборend;

Переключатель (switch) сообщает нам, что произошло с каждым окном. Например, мы можем обнаружить, что окно имеет заданное имя:

function EnumWindowsProc(hWnd: HWND; lParam: LPARAM): Bool; stdcall;var  WindowClassName: array[0..255] of Char;begin  GetClassName(hWnd, WindowClassName, 255);  if WindowClassName = 'Notepad' then  begin    // Нашли блокнот    Result := False; // остановить перебор  end  else    Result := True; // продолжить переборend;

Затем, чтобы перебрать все окна в системе, вызовем EnumWindows, передавая ему указатель на обратный вызов:

EnumWindows(@EnumWindowsProc, 0);

Это начнет перебор всех окон в системе, пока не будет найдено окно Notepad. В общем, EnumWindows делает процесс перебора окон намного более легким и удобным.