求delphi截图的代码

Posted 2023-04-06

参考技术A 先用
findwindow找到窗口句柄，再用getwindowrect获取窗口长宽大小信息
最后把这句改一下fullscreen.canvas.copyrect
(rect(0,
0,
screen.width,
screen.height),
fullscreencanvas,
rect(0,
0,
screen.width,
screen.height)); 参考技术B 函数原型
　　
BOOL
BitBlt(HDC
hdcDest,int
nXDest,int
nYDest,int
nWidth,int
nHeight,HDC
hdcSrc,int
nXSrc,int
nYSrc,DWORD
dwRop)；
500,500
应于复制图像宽度高度,
取同值结影响.所说没变化image一本身宽度高度较,
没显示完

xp系统安装delphi7 无论有无代码，一运行就出现CPU窗口，然后delphi就卡死了，求解决方法！

换个系统 xp

或换个delphi

Delphi7_Lite_Full_v7.3.3.4_优化精简全功能版 还可以 参考技术A 查看系统环境变量中是否添加了delphi的\bin的路径，和rtl70.bpl文件是否缺失追问

两者都有，但是还是不行

追答

把d7的project目录下的所有文件删除（bpl\dcp目录不要删）再试试

参考技术B 我的电脑-属性-高级-性能设置-数据执行保护-为除下列选定程序之外的所有......
将delphi32.exe加进去