张杰演唱会门票怎么买:delphi实现截屏功能
来源:百度文库 编辑:中财网 时间:2024/05/16 08:52:05
截取layered窗口(包括透明窗口)的代码:
procedure CaptureScreen(AFileName: string);
const
CAPTUREBLT = $40000000;
var
hdcScreen: HDC;
hdcCompatible: HDC;
bmp: TBitmap;
hbmScreen: HBITMAP;
begin
hdcScreen := CreateDC('DISPLAY', nil, nil, nil);
hdcCompatible := CreateCompatibleDC(hdcScreen);
hbmScreen := CreateCompatibleBitmap(hdcScreen,
GetDeviceCaps(hdcScreen, HORZRES),
GetDeviceCaps(hdcScreen, VERTRES));
SelectObject(hdcCompatible, hbmScreen);
bmp := TBitmap.Create;
bmp.Handle := hbmScreen;
BitBlt(hdcCompatible,
0, 0,
bmp.Width, bmp.Height,
hdcScreen,
0, 0,
SRCCOPY or CAPTUREBLT);
bmp.SaveToFile(AFileName);
bmp.Free;
DeleteDC(hdcScreen);
DeleteDC(hdcCompatible);
end;
如何在delphi中实现打印功能
delphi 连接到MS 数据库,怎么实现查找功能?
delphi 的程序:在桌面实现滚动条的功能
delphi中如何实现语音识别功能?(原代码)
如何用delphi实现?
Delphi怎么实现分页
delphi中实现动画
qq中的"选择表情"这个功能是怎样实现的?(delphi)
想用delphi和sql实现一个员工资料查询的功能
如何用Delphi实现MD5?
如何用Delphi实现MD5?
delphi怎么实现分页显示
如何用delphi实现另存为?
delphi怎么实现资源编辑
请高手指点:怎样在Delphi开发的桌面系统中实现类似“多页面跳转”的功能?
怎样用Delphi实现信息完整或是数字签名
delphi 如何实现跨网段UDP传输
请问Delphi中如何实现拖曳
delphi要怎么样实现DOS操作
Delphi怎么实现分页显示数据
怎么样在delphi中实现托盘图标??
delphi怎样实现 关机 重启
mh5算法在delphi中的实现
delphi 如何实现 字符 上下左右滚动