穷子喻说明了:delphi实现截屏功能

来源：百度文库编辑：偶看新闻时间：2024/04/29 21:33:40

截取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 如何实现字符上下左右滚动