【文件属性】：
文件名称：Delphi 检测程序是否运行，全屏抓图、修改计算机名称.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 10:57:35
Delphi源码-系统相关
Delphi7.0与Windows编程示例，检测程序是否运行，捕获全屏图像并抓图（截屏）、修改计算机名称，要实现这一功能，以下代码是关键：
SourceDC:=CreateDC('DISPLAY','','',nil);{创建源设备环境，DISPLAY为显示器}
DestDC:=CreateCompatibleDC(SourceDC);
BHandle:=CreateCompatibleBitmap(SourceDC,Screen.Width,Screen.Height) ;//创建和SourceDC兼容的目标设备环境
SelectObject(DestDC,BHandle); //创建一个和SourceDC兼容的内存设备环境，并返回其设备句柄
BitBlt(DestDC,0,0,Screen.Width,Screen.Height,SourceDC,0,0,SRCCOPY) ; //抓图
Bitmap:=TBitmap.Create; //Bitmap为TBitmap类型
Bitmap.Handle:=BHandle;
Bitmap.SaveToFile('C:\My Documents\FullScreen.bmp') ;
DeleteDC(DestDC) ;
ReleaseDC(BHandle,SourceDC) ; //释放设备环境
注：通过本例子改变计算机在网络中的名字，重新启动后才生效。
【文件预览】：
srcfans.com
----00404()
--------U00404.dfm(466B)
--------P00404.dof(919B)
--------U00404.pas(1KB)
--------P00404.cfg(325B)
--------P00404.dpr(526B)
--------U00404.dcu(4KB)
--------00404.txt(1KB)
--------P00404.res(876B)