Delphi 检测程序是否运行全屏抓图、修改计算机名称.rar

Delphi7.0与Windows编程示例，检测程序是否运行，捕获全屏图像并抓图（截屏）、修改计算机名称，要实现这一功能，以下代码是关键：　　SourceDC:=CreateDC('DISPLAY','','',nil);{创建源设备环境，DISPLAY为显示器}　　DestDC:=CreateCompatibleDC(SourceDC);　　BHandle:=CreateCompatibleBitmap(SourceDC,Screen.Width,Screen.Height);//创建和SourceDC兼容的目标设备环境　　SelectObject(DestDC,BHandle);//创