Форум: "Начинающим";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];
ВнизКопия содержимого активного окна в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.042 c