Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.06.17;
Скачать: CL | DM;

Вниз

Копия содержимого активного окна в Image   Найти похожие ветки 

 
Reaktor   (2007-05-24 17:47) [0]

Написал процедуру, которая должна копировать (как мне кажется) окно одного из запущенных приложений в Image. Однако она копирует только содержимое того, окна которое в данный момент поверх всех (или рабочий стол, если все окна свернуты). Подскажите где ошибка.

procedure TForm1.Button1Click(Sender: TObject);
var
 bmp: TBitmap;
 DC : HDC;
 Wnd : HWND;
begin
   wnd := GetWindow(Handle, gw_HWndFirst);
   Wnd := GetWindow(Wnd, gw_hWndNext);
   DC := GetDC(Wnd);

   bmp := TBitmap.Create;
   try
    bmp.Width := Image1.Width;
    bmp.Height := Image1.Height;
    BitBlt(bmp.Canvas.Handle, 0, 0, 57, 57, DC, 10 , 10, SRCCopy);
    Clipboard.Assign(bmp);
   finally
    ReleaseDC ( WND, DC );
    bmp.Free;
   end;
   Image1.Picture.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_BitMap ),0);

end;


 
clickmaker ©   (2007-05-24 17:51) [1]


> окно одного из запущенных приложений

какого именно?


 
Reaktor   (2007-05-24 17:58) [2]

Которое будет определено GetWindow как next.



Страницы: 1 вся ветка

Текущий архив: 2007.06.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
15-1179813478
G_M_S
2007-05-22 09:57
2007.06.17
Распознавание текста и нейросети


2-1179820641
RusTim
2007-05-22 11:57
2007.06.17
Как руссифицировать ActionManager


15-1179500080
Ltybc
2007-05-18 18:54
2007.06.17
Очень опасный вирус


8-1159866917
sozon
2006-10-03 13:15
2007.06.17
Эмуляция джойстика


6-1164640713
Diamond
2006-11-27 18:18
2007.06.17
Socket.ReceiveBuf ломается с ИС