人
人在昆明
Unregistered / Unconfirmed
GUEST, unregistred user!
你自己调试一下啦，就是这个，可以关本地，不可以关远程<br>不过你可以在调用关机之前，先登陆远程机（知道密码、账号<br>去映射网络驱动器就行啦）<br>9X 就不用说了吧，兄弟们都是大虾吗，干吗生气，呵呵，求财，<br>求和气，哦，对啦，我还求分！ 只是可惜分太少啦。<br><br>const<br> DllName = 'Advapi32.dll';<br>{<br> 1、<br> BOOL InitiateSystemShutdownEx(<br> LPTSTR lpMachineName, // computer name<br> LPTSTR lpMessage, // message to display<br> DWORD dwTimeout, // length of time to display<br> BOOL bForceAppsClosed, // force closed option<br> BOOL bRebootAfterShutdown, // reboot option<br> DWORD dwReason // shutdown reason<br> );<br> 2、<br> BOOL AbortSystemShutdown(<br> LPTSTR lpMachineName // computer name<br> );<br>}<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br> AbortSystemShutdown('10.97.0.138');<br>end;<br><br>function TForm1.ControlWin2K: Boolean;<br>var<br> GetDll: HWND;<br> InitiateSystemShutdownExA: function(<br> lpMachineName, lpMessage: string;<br> dwTimeout: DWord;<br> bForceAppsClosed, bRebootAfterShutdown: Boolean;<br> dwReason: DWord<br> ): Integer; stdcall;<br>begin<br> GetDll := LoadLibrary(DllName);<br> if GetDll = 0 then<br> raise Exception.Create('加载Advapi32.dll出错，程序异常终止！');<br> @InitiateSystemShutdownExA := GetProcAddress(GetDll,<br> 'InitiateSystemShutdownExA');<br> if @InitiateSystemShutdownExA <> nil then<br> begin<br> InitiateSystemShutdownExA('10.97.0.138', 'hi', 3000,<br> True, True, 0);<br> end;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> ControlWin2K;<br>end;<br>