请问如何知道系统运行了拨号上网程序!(20分)

我要做一个监控软件,主要是不让用户通过拨号上网,因为是国家机关嘛!
若用户一运行拨号程序便关闭该程序,同时记录下来,并向监察机送信息!
现在主要是要知道该机有没有运行该程序,因为可以以黑客程序硬装到被
监控的电脑上.

最简单的就用FINDWINDOW.

能否具体一些!

用FINDWINDOW好像只在98下有用,在2000/xp就找不出来了.
THRasConn=LongInt;
LPRasConnw=^TRasConnw;
TRasConnw=record
dwsize:longint;
hrasconn:thrasconn;
szEntryName:array[0..RAS_MaxEntryName] of char;
szDeviceType:array[0..RAS_MaxDeviceType] of char;
szDeviceName:array[0..RAS_MaxDeviceName] of char;
end;


function RasEnumConnections(RasConnArray:LPRasConnW;var lpcbWORD;
var lpcConnectionsWORD)WORD;stdcall;
function RasEnumConnections;external 'rasapi32.dll' name 'RasEnumConnectionsA';

用这个函数检测,如果hrasconn返回0表示没有拔号上网,如果不为0,表示在拔号上网,你可以用
function RasHangup(var RasConn:THRasConn)WORD;stdcall;
function RasHangup;external 'rasapi32.dll' name 'RasHangUpA';
这个函数给他断了!

接受答案了.