Текущий архив: 2004.03.03;
Скачать: CL | DM;
Вниз
Мужики, как скаптурить произвольный прямоугольник текущего экрана Найти похожие ветки
← →
bobo (2003-12-25 10:36) [0]Мужики, как скаптурить произвольный прямоугольник текущего экрана
← →
Polevi © (2003-12-25 16:29) [1]BitBlt
← →
shluz © (2003-12-26 00:08) [2]ar
hdcScreen,hdcCompatible:HDC;
hbmScreen: Hbitmap;
begin
hdcScreen := GetDC(0);
hdcCompatible := CreateCompatibleDC(hdcScreen);
hbmScreen:= CreateCompatibleBitmap(hdcScreen,
GetDeviceCaps(hdcScreen, HORZRES),
GetDeviceCaps(hdcScreen, VERTRES));
if SelectObject(hdcCompatible, hbmScreen)<>0 then
showmessage("Compatible Bitmap Selection");
if not BitBlt(hdcCompatible ,
0,0,
200, 300,
hdcScreen,
0,0,
SRCCOPY) then
showmessage("Screen to Compat Blt Failed");
ShowWindow(handle, SW_SHOW);
image1.Canvas.Handle:=hdcCompatible;
пример MSDK
Страницы: 1 вся ветка
Текущий архив: 2004.03.03;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.018 c
