请教一简单问题？(100分)

自己编了一个程序，在启动程序时， 如何做到发现FileMon已运行就把FileMon关闭？<br>可是它并不起作用，代码如下：<br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br>&nbsp; MyHnd: Hwnd;<br>begin<br>&nbsp; MyHnd:= CreateFile(Pchar('//./FILEVXD'), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);<br>&nbsp; if MyHnd&lt;&gt; INVALID_HANDLE_VALUE then<br>&nbsp; &nbsp; &nbsp;CloseHandle(MyHnd);<br>end;<br>用以下代码试了也不行，<br>MyHnd:=FindWindow('FilemonClass', nil);<br>if MyHnd&lt;&gt; -1 then<br>&nbsp; &nbsp;DestroyWindow(MyHnd);

看我杀QQ的方法:<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=2587881