国内精品久久久久久tv,四虎黄色网,精品人妻中文字幕有码在线

隨著網(wǎng)絡(luò)技術(shù)的飛速發(fā)展，計算機網(wǎng)絡(luò)在各高等院校教學中的使用已非常普遍，但是，我們發(fā)現(xiàn)一個問題，在教學的過程中，由于老師是面對著學生，而背對著學生計算機的顯示器，不能隨時查看學生計算機顯示器上的內(nèi)容，所以，有的學生在教學中偷玩游戲，影響了教學的質(zhì)量和效果，因此，設(shè)計一款網(wǎng)絡(luò)監(jiān)控軟件，監(jiān)控學生計算機，十分必要。為了實現(xiàn)這一目的，此系統(tǒng)應具有以下功能：
　　（1）教師用機可以循環(huán)顯示學生計算機的顯示器上的畫面。
　　（2）教師用機可以動態(tài)顯示某一學生計算機的顯示器上的畫面。
　　（3）教師用機可以對學生用計算機發(fā)出警告信息和控制信息。
　　（4）學生用計算機開機自動運行服務端監(jiān)控程序。
　　（5）為了防止學生用計算機的服務端監(jiān)控程序，被學生發(fā)現(xiàn)用Ctrl+Alt+Del關(guān)閉，在Ctrl+Alt+Del對話框中必須隱藏程序。同時，應該隱藏程序在任務欄的按鈕。
　　本文結(jié)合應用實踐，重點向大家介紹在Delphi7.0中可以采用的兩種實現(xiàn)屏幕抓圖技術(shù)的操作方法。
　　程序?qū)崿F(xiàn)
　　（1）抓取屏幕圖像的難點有兩個：一是如何奪取屏幕的句柄，二是知道屏幕句柄后如何獲取屏幕的圖像。Borland公司的設(shè)計人員用畫布（Tcanvas）對象封裝了Windows的大部分圖形輸出功能，可以通過它以更直觀的方式和Windows的屏幕打交道，而不必關(guān)心令人頭疼的Windows API函數(shù)。具體程序如下：

procedure TForm1.Timer1Timer(Sender：TObject)；//抓取屏幕，并保存到Image控件中
var
　Fullscreen：Tbitmap；
　FullscreenCanvas：TCanvas；
　dc：HDC；
begin
　Fullscreen：=TBitmap.Create；
　//創(chuàng)建一個BITMAP來存放圖象
　Fullscreen.Width：=screen.width；
　Fullscreen.Height：=screen.Height；
　DC：=GetDC(0)； //取得屏幕的DC，參數(shù)0指的是屏幕
　FullscreenCanvas：=TCanvas.Create；
　//創(chuàng)建一個CANVAS對象
　FullscreenCanvas.Handle：=DC；
　Fullscreen.Canvas.CopyRect(Rect(0，0，screen.Width，screen.Height)，
　fullscreenCanvas，Rect(0，0，Screen.Width，Screen.Height))；
　//把整個屏幕復制到BITMAP中
　FullscreenCanvas.Free；
　//釋放CANVAS對象
　ReleaseDC(0，DC)； //釋放DC
　//*******************************
　image1.picture.Bitmap：=fullscreen； //拷貝下的圖象賦給IMAGE對象
　image1.Width：=fullscreen.Width；
　image1.Height：=fullscreen.Height；
　fullscreen.free； //釋放bitmap
　form1.WindowState：=wsNormal； //復原窗口狀態(tài)
　form1.show； //顯示窗口
　messagebeep(1)； //BEEP叫一聲，報告圖象已經(jīng)截取好了。
end；

　　（2）Delphi的第三方控件ScreenCapture，它是一個很好的免費的截圖控件，可以輕松抓取任意大小（全屏當然行）、屏幕的任何位置，還可以設(shè)置所截圖像的形狀、以及用何種模式截圖。下面介紹的是用TcmWindow模式截圖，使用非常簡單，使用效果可以與著名的抓圖軟件SnagIt32媲美。

procedure TForm1.BtnStartClick(Sender：TObject)；
begin
　ScreenCapture1.start； //開始截圖
end；

　//當截取屏幕成功時，此事件發(fā)生
　procedure TForm1.ScreenCapture1Capture(Sender：TObject；Bitmap：TBitmap)；
begin
　//調(diào)整滾動窗口的大小以適應截獲圖像的大小
　Scrollbox1.HorzScrollBar.Range：= Image1.width；
　Scrollbox1.VertScrollBar.Range：= Image1.height；
end；

procedure TForm1.FormCreate(Sender：TObject)；
begin
　//載入entntacp.dll文件
　BtnStart.enabled：= ScreenCapture1.dllavailable；
　//顯示版本信息
　caption：= '屏幕抓圖軟件' + ScreenCapture1.version；
end；

//當沒有足夠的內(nèi)存支持截取屏幕時，此事件發(fā)生
procedure TForm1.ScreenCapture1Error(Sender：TObject)；
begin
　MessageDlg('屏幕截取時發(fā)生一個錯誤！請關(guān)閉其他應用程序以獲得更多內(nèi)存資源.'，　mtError，[mbOK]，0)；
end；

　//當用戶按“Esc”鍵，即取消屏幕截取時，此事件發(fā)生
procedure TForm1.ScreenCapture1UserCancelled(Sender：TObject)；
begin
　MessageDlg('用戶取消屏幕截取。'，mtInformation，[mbOK]，0)；
end；

　　運行程序，效果如圖1和圖2所示。