菜鸟问题：在网上找的delphi7屏幕截图代码，不能直接在bitmap上绘图或缩放，求高人详细指点一下。非常感谢。
截屏代码：
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);
DeleteDC(hdcScreen);
DeleteDC(hdcCompatible);
想在bmp上绘制一矩形，然后把bmp缩放。
症状是：bmp.canvan上绘图无效，把bmp保存为流,再用bitmap加载也只是一空白图像，但流文件却能正常显示。困扰好久了，求解决方法。
delphi 屏幕截图 bitmap bitblt Tbitmap
[解决办法]
猜测你的需求，弄个示例代码，你瞅瞅好了
http://pan.baidu.com/s/1EHuoU
[解决办法]
坛子里面有好几个截屏绘图的。
http://bbs.csdn.net/topics/380218385#r_77874144
这个应该对你帮助比较大
