?? 抓獲全屏 (2001年4月8日).txt
字號:
抓獲全屏 (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。
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -