如何后台监视软盘数据的读出和网络连接的建立（200分！！！） (200分)

1）怎样在后台监视软盘数据的读出<br>2）怎样后台监视网络连接的建立<br><br>诚意送上200分值<br><br>补充说明：是一个考试系统，需防止考生自带软盘和访问网络上的共享文件夹（除SERVER），<br>第一点如可不重启而屏蔽软驱也可（win98）<br>第二点如可不重启而禁止共享也可（win98）<br><br>再次说明：第二点是为防止访问网络上的共享文件夹（计算机已连上网络）<br>

以下是一个判断当前计算机是否联网的例子：<br><br>procedure TForm1.Button1Click(Sender: TObject);<br><br>begin<br><br>&nbsp; if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then<br><br>&nbsp; edit1.text:= 'Connected'<br><br>&nbsp; else<br><br>&nbsp; edit1.text:= 'Disconnected';<br><br>end;<br><br>

1,第一个问题等待回答<br>2.判断计算机是否联网:<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then<br>&nbsp; &nbsp; ShowMessage('计算机已连上网络') else<br>&nbsp; &nbsp; ShowMessage('计算机没有连上网络');<br>end;

关注

关注<br>

没有人知道吗<br>高人还没出现吗？

没有人知道吗<br>就象杀毒监视软件那样，一读软盘就察毒

1.可以用“软驱”搜索一下已答问题。我找到一个：<br>function DiskInDrive(const Drive: char): Boolean; <br>&nbsp; &nbsp; var <br>&nbsp; &nbsp; &nbsp;DrvNum: byte; <br>&nbsp; &nbsp; &nbsp;EMode: Word; <br>&nbsp; &nbsp; begin <br>&nbsp; &nbsp; &nbsp;result := false; <br>&nbsp; &nbsp; &nbsp;DrvNum := ord(Drive); <br>&nbsp; &nbsp; &nbsp;if DrvNum &gt;= ord('a') then dec(DrvNum,$20); <br>&nbsp; &nbsp; &nbsp;EMode := SetErrorMode(SEM_FAILCRITICALERRORS); <br>&nbsp; &nbsp; &nbsp;try <br>&nbsp; &nbsp; &nbsp;if DiskSize(DrvNum-$40) &lt;&gt; -1 then result := true <br>&nbsp; &nbsp; &nbsp;else messagebeep(0); <br>&nbsp; &nbsp; &nbsp;finally <br>&nbsp; &nbsp; &nbsp;SetErrorMode(EMode); <br>&nbsp; &nbsp; &nbsp;end; <br>&nbsp; &nbsp; end; <br>你可以放一个timer定时查询。<br><br>2.把机房的网线和外面断开，或者考试的机器上不要安装netbui协议。

to zw84611<br>1：定时搜索软区不可取，我试过了，每次搜索时系统都瘫痪几秒，我希望可以做到象杀毒软<br>件那样，读盘的时候响应事件，或干脆在不重启的条件下屏蔽软区（我们机房有硬盘还原卡，<br>每次重启后还原）<br>2:把机房的网线和外面断开？我还要连服务器呢

可以从驱动程序着手，<br>第一，卸载软驱驱动程序<br>第二，只保留TCP/IP,不要安装其他的例如共享等功能。

1.“象杀毒软件那样”可能要用到vxd/wdm/FileHooking，好象挺麻烦，<br>参见这个帖子：http://www.delphibbs.com/delphibbs/dispq.asp?lid=178252<br>2.不要安装netbui协议

没有满意的答复