抓獲全屏 (2001年4月8日) 

網友更新  分類:數據庫   作者: winfit(推薦)  推薦:winfit   閱讀次數:251  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
根據Windows GDI與設備無關的特點，利用BitBlt或StretchBlt函數將顯示設備上的位數據傳輸到目標設備上，然后在目標設備上創建兼容位圖： 

SourceDC:=CreateDC(′DISPLAY′,′′,′′,nil);{創建源設備環境，DISPLAY為顯示器} 

DestDC:=CreateCompatibleDC(SourceDC); 

{創建和SourceDC兼容的目標設備環境} 

BHandle:=CreateCompatibleBitmap(SourceDC,Screen.Width,Screen.Height) ; 

{創建一個和SourceDC兼容的內存設備環境，并返回其設備句柄} 

SelectObject(DestDC,BHandle); 

BitBlt(DestDC,0,0,Screen.Width,Screen.Height,SourceDC,0,0,SRCCOPY) ; 

{抓圖} 

Bitmap:=TBitmap.Create; 

{Bitmap為TBitmap類型} 

Bitmap.Handle:=BHandle; 

Bitmap.SaveToStream(′C:\My Documents\FullScreen.bmp′) ;{保存到文件} 

DeleteDC(DestDC) ; 

ReleaseDC(BHandle,SourceDC) ; 

{釋放設備環境} 

以上程序中，各設備環境的數據類型為Integer。