几个获取Windows系统信息的Delphi程序

领测软件测试网

ExitWindowsEx(EWX_REBOOT,2) //重新启动计算机 
else if RadioButton4.Checked=true then 
ExitWindowsEx(EWX_FORCE,4) //强行关机 
else if RadioButton5.Checked=true then 
ExitWindowsEx(EWX_POWEROFF,8); //关闭系统并关闭电源 

end; 

end. 

文章来源于领测软件测试网 https://www.ltesting.net/