Мечты вуайериста

Для чего это? Нет, конечно, никакого отношения это статья к привычным извращениям не имеет, просто рассказывает, как можно подглядывать в чужие окна.

Судя по тому шквалу вопросов, которыми завалены форумы, вопрос изучения чужих окон интересует многих. Каюсь, здесь я оказался в большинстве. Движимый любопытством я попытался разобраться в том, как же все-таки заглянуть в чужое окно. И написал некую программку, которая все это умеет делать. Ну, почти все. Попутно пришлось найти ответы на многие вопросы, которые, как мне кажется, интересуют не только меня. Программа написана на Delphi 3 для Windows 98. И, возможно, в более поздних версиях Delphi появились дополнительные возможности.

• ClassName: Имя класса окна (заканчивающееся пустым символом, 0 - если все классы).
• WindowName: Текстовый заголовок окна или 0, если все окна.

Procedure  WindowPresent(ClassName,WindowName:PChar): Boolean;
Begin
  Result := FindWindow(ClassName,WindowName)<>0;
End;

• Wnd: идентификатор окна.
• Flag: Одна из констант gw_HWndNext - искать следующее окно gw_HwndPrev - искать предыдущее окно.

procedure Tform1.GetAllWindow;
Var
    Wd : HWnd;
begin
    ListBox1.Items.Clear;         

// Очистим список перед началом поисков

    Wd:=FindWindow(0,0);      

// Найдем первое окно верхнего уровня любого класса 

    While (Wd<>0) do            

// Если такое окно существует

 
 Begin
  ListBox1.Items.Add(IntToStr(Wd));   

 // Добавим описатель в виде текста в список
 Application.ProcessMessages;          

 // Дадим возможность поработать другим

    Wd:=GetNextWindow(Wd,GW_HWNDNEXT); 

// Найдем следующее окно в системе.

    End;
end;

• EnumFunc: Адpес экземпляpа пpоцедуpы функции обpатного вызова.
• lParam: Значение, пеpеданное функции обpатного вызова.

function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; 

// Обязательно stdcall !!! 

Begin
 ListBox1.Items.Add(IntToStr(Wd));        

// Добавляем текущий описатель окна 

 EnumProc := TRUE;
end;

Procedure TForm1.GetAllWindow;
Begin
 ListBox1.Items.Clear;        

 // Очистим список перед началом поисков

 EnumWindows (@EnumProc, 0); 

// и скажем - искать

End;

• Wnd: Идентификатор окна.
• ClassName: Буфеp для пpиема имени класса.
• MaxCount: Размеp буфеpа

• Wnd: Идентификатор окна или оpгана упpавления.
• Str: Буфеp, пpинимающий стpоку.
• MaxCount: Размеp буфеpа Str.

function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; 

// Обязательно stdcall !!! 

Var
    Nm:Array[0..255] of Char;  

// буфер для имени

    Cs: Array[0..255] of Char; 

// буфер для класса

Begin
    GetWindowText(Wd,Nm,255); 

// считываем  текст заголовка окна

    GetClassName(Wd,Cs,255); 

// считываем название класса окна

    ListBox1.Items.Add(String(Nm)+'/'+String(Cs));        

// Добавляем название окна и класс в список

    EnumProc := TRUE;  

// продолжать искать окна…

end;

function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; 
// Обязательно stdcall !!! 
Var
    Nm:Array[0..255] of Char;  

// буфер для имени

    Cs: Array[0..255] of Char; /

/ буфер для класса

    Ch:Char;                            

 //символ обозначающий, что окно минимизиравано

Begin
    GetWindowText(Wd,Nm,255); 

// считываем  текст заголовка окна

    GetClassName(Wd,Cs,255); 

// считываем название класса окна

    If IsIconic(Wd) then Ch:=

'+'

    Else Ch:=

'-'

;
   

// Добавляем название окна и класс в список 
//первый символ + означает, что окно - иконка

    If Wd<>Form1.Handle then ListBox1.Items.Add(Ch+

' '

+String(Nm)+

'/'

+String(Cs));     
    EnumProc := TRUE;
end;

If Wd<>Form1.Handle …… условие вида 
If  ISWindowVisble(Wd) and (Wd<>Form1.Handle) then ….

• Wnd: Идентификатор окна.
• Rect: Пpинимающая стpуктуpа TRect.

Function GetWinRect(Wd:HWND):TRect;
Begin
  GetWindowRect(Wd,Result);
End;

• Wnd: Идентификатор окна.
• Rect: Стpуктуpа TRect для пpиема кооpдинат пользователя.

Function WindowToBMP(WD: HWND ): TBitmap;
Var
WinDC: HDC;
ARect   : TRect;
begin
    Result := TBitmap.Create;             

// Создаем рисунок, куда будем копировать

    GetWindowRect(WD, ARect);            

// Узнаем размер

    with Result, ARect do
    begin
        Width := ARect.Right - ARect.Left;
        Height := ARect.Bottom - ARect.Top;
        If (Width=0) or (Height=0) then
        Begin
            MessageDlg(

'Размер области формы равен нулю'

,
            mtWarning,[mbOk],0); 	

// А вдруг у него нет размера ???

            Exit;							

// Тогда выходим

        End;
        WinDC:=GetWindowDC(Wd);               

// получаем для окна контекст устройства

        ShowWindow(Wd, SW_SHOW);            

// на всякий случай выведем окно

        BringWindowToTop(WD);                 

 // и поместим поверх окон

        try
        

// копируем оттуда прямоугольную область на канву
        // растрового изображения

  BitBlt( Canvas.Handle, 0, 0, Width, Height, WinDC,  0, 0, SRCCOPY);
        finally
        end;
    end;
end;

Function WindowToBMP(WD: HWND ): TBitmap;
Var
WinDC: HDC;
ARect   : TRect;
begin
    Result := TBitmap.Create;            

// Создаем рисунок, куда будем копировать

    GetClientRect(WD, ARect);            

// Узнаем размер

    with Result, ARect do
    begin
       Width := ARect.Right - ARect.Left;
       Height := ARect.Bottom - ARect.Top;
       If (Width=0) or (Height=0) then
       Begin
           MessageDlg(

'Размер области формы равен нулю'

,
         mtWarning,[mbOk],0); 	

// А вдруг у него нет размера ???

         Exit;							

// Тогда выходим

      End;
      WinDC:=GetWindowDC(Wd);               

// получаем для окна контекст устройства

      ShowWindow(Wd, SW_SHOW);            

// на всякий случай выведем окно

    BringWindowToTop(WD);                  

// и поместим поверх окон

        try
            

// копируем оттуда прямоугольную область на канву
            // растрового изображения

BitBlt( Canvas.Handle, 0, 0, Width, Height, WinDC, 0, 0, SRCCOPY);
        finally
        end;
    end;
end;

• Wnd: Идентификатоp окна.
• Index: Смещение в байтах или одна из следующих констант: GWL_EXSTYLE возвращает расширенный стиль окна. GWL_STYLE возвращает стиль окна. GWL_WNDPROC возвращает адрес стандартной процедуры окна. GWL_HINSTANCE возвращает экземпляр приложения окна. GWL_HWNDPARENT возвращает описатель родительского окна. GWL_ID возвращает идентификатор окна. GWL_USERDATA возвращает пользовательские данные об окне.

Function GetHinstanse(WD:HWND):LongInt;
Begin
 Result:=GetWindowLong(Wd, GWL_HINSTANCE);
End;

• Wnd: Идентификатоp окна.
• Index: Смещение в байтах или константа GCW_ATOM возвращает значение ATOM уникальное для класса окна GCL_CBCLSEXTRA возвращает размер в байтах памяти для данного класса GCL_CBWNDEXTRA возвращает размер в байтах памяти для данного окна GCL_HBRBACKGROUND возвращает указатель на кисть данного класса GCL_HCURSOR возвращает указатель на курсор ассоциированный с классом. GCL_HICON возвращает указатель на иконку ассоциированную с классом. GCL_HICONSM Windows 95:возвращает указатель на маленькую иконку. Windows NT: не доступно. GCL_HMODULE возвращает имя модуля класса. GCL_MENUNAME возвращает имя меню для данного класса. GCL_STYLE возвращает стиль окна для класса. GCL_WNDPROC возвращает адрес стандартной процедуры окна

Function WinIconToBMP(Wd:HWND);
Var Icon:HICON;           

 // Тип указатель на иконку

Begin
    Result:=TbitMap.Create;
    Icon:=GetClassLong(Wd,GCL_HICON); 

// Получаем иконку по описателю

    If ICON > 0 then			          

 // Если получена действительно иконка	

    With Result do
    Begin
     Height:=31;
     Width:=31;
     Canvas.Brush.Color:=clWhite;
     Canvas.FillRect(Rect(0,0,31,31));     

// На всякий случай заливаем белым	

     DrawIcon(Canvas.Handle, 0, 0, Icon); 

// И отрисовываем ее на канве

    End;
End;

Как использовать данную функцию ??

Var
    mProcessID,mThreadID : Dword;
Begin
    ...

// Получение описателя в WD

  mThreadID:= GetWindowThreadProcessId(Wd,@mProcessID); 

// Получения идентификаторов.

    ...
End;

• Описатель окна
• Заголовок окна
• Класс окна
• Состояние окна (распахнутое, видимое, доступное и т.д.)
• Размеры и положение окна
• Размеры и положение клиентской части окна
• Контекст устройства
• Стиль окна
• Экземпляр приложения
• Иконку.
• Идентификатор нити.

Описание функций API

• 1. FindWindow
• 2. GetNextWindow
• 3. GetForeGroundWindow
• 4. EnumWindow
• 5. GetClassName
• 6. GetWindowText
• 7. GetWindowTextLength
• 8. IsIconic
• 9. IsWindow
• 10. IsWindowEnabled
• 11. IsWindowVisible
• 12. IsZoomed
• 13. GetWindowRect
• 14. GetClientRect
• 15. GetWindowDC
• 16. GetWindowLong
• 17. GetClassLong
• 18. GetWindowThreadProcessId
• 19. SetForegroundWindow
• 20. BringWindowToTop

Список текстов

• 1. Нахождение списка описателей окон верхнего уровня при помощи функции GetNextWindow
• 2. Нахождение списка описателей окон верхнего уровня при помощи функции EnumWindow
• 3. Определение имени класса и текста заголовка окон.
• 4. Определение является ли окно пиктограммой (свернутым).
• 5. Как скопировать произвольное окно в картинку BMP, зная его описатель.
• 6. Как скопировать рабочую часть окна в BMP, зная описатель окна.
• 7. Извлечение стандартной иконки в BMP, зная описатель окна.

Другое по теме:

• Создание в Delphi непрямоугольной формы с картинкой
• Прогулка по окнам Windows
• Статьи. Действия с посторонними окнами