如何用程序关闭我的电脑啊!(5分)

如何用程序关闭我的电脑这个窗口啊!<br>知道的请告诉我啊!

用 FindWindow 找到 "我的电脑" 窗口.再用 DestroyWindow Kill掉它!

通过调用两个API函数，可以实现该功能。这两个函数分别为：<br>① FindWindow函数 该函数用于查找与指定的类名和窗口名相匹配的高层窗口，如果查找成功，返回非0值，否则返回0。<br>② SendMessage函数 此函数向一个或多个窗口发送指定的消息。在此通过发送WM_CLOSE消息来关闭指定的外部应用程序。<br><br>具体如下：<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; hWndClose: HWnd; //存储指定的外部应用程序窗口句柄 <br>&nbsp; str: String; //存储指定的外部应用程序的窗口名<br>begin<br>&nbsp; str := &nbsp;'我的电脑';<br>&nbsp; hWndClose := FindWindow(nil, PChar(str));<br>&nbsp; if hWndClose &lt;&gt; 0 then file://如果查找成功，则发送消息，关闭指定的窗口<br>&nbsp; &nbsp; SendMessage(hWndClose,WM_CLOSE,0,0);<br>&nbsp; else <br>&nbsp; &nbsp; ShowMessage('没找到指定的应用程序，所以无法关闭！');<br>end;<br>　

有些地方还是运行不了啊！<br>能不能说详细点啊！