客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
功能: 获得一个句柄为Hwnd的窗口的图象 参数: Hwnd: 窗体句柄 PicBitNum: 图象位数(15,16,24,32) 返回值: TBitmap
function CreateBMPFromWindow(Hwnd: THandle;PicBitNum: Byte): TBitmap;
{创建一个空的Bitmap} function CreateDibBMP(Dc: HDC;width,height: Integer): HBITMAP; type DibRec = record bi: BITMAPINFOHEADER; ct: array[0..255] of DWORD; end; var Dib: DibRec; lpBits: pointer; temp: TBitmapInfo; begin dib.bi.biSize := sizeof(BITMAPINFOHEADER); dib.bi.biWidth := width; dib.bi.biHeight := height; dib.bi.biBitCount := PicBitNum; dib.bi.biPlanes := 1; dib.bi.biCompression := 0; dib.bi.biSizeImage := 0; dib.bi.biClrUsed := 0; if PicBitNum = 15 then Dib.bi.biBitCount := 16 else if PicBitNum = 16 then begin Dib.bi.biCompression := BI_BITFIELDS; dib.ct[0] := $F800; dib.ct[1] := $07E0; dib.ct[2] := $001F; end; Move(dib,temp,SizeOf(dib)); result := CreateDIBSection(Dc,temp,DIB_RGB_COLORS,lpBits,0,0); end; var rc: TRect; x,y,cx,cy: integer; hdcScreen,hdcMemory: HDC; begin GetWindowRect(hwnd, rc); x := rc.left; y := rc.top; cx := rc.right - rc.left; cy := rc.bottom - rc.top; hdcScreen := GetDC(0); hdcMemory := CreateCompatibleDC(0); result := TBitmap.Create; Result.Handle := CreateDibBMP(hdcScreen, cx, cy); SelectObject(hdcMemory, result.Handle); BitBlt(hdcMemory, 0, 0, cx, cy, hdcScreen, x, y, SRCCOPY); DeleteDC(hdcMemory); ReleaseDC(0, hdcScreen); end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论