DELPHI对计算机的重新启动，关机操作

最新推荐文章于 2024-01-26 10:18:08 发布

mailreboot

最新推荐文章于 2024-01-26 10:18:08 发布

阅读量2.4k

点赞数

分类专栏： DELPHI技术文章标签： delphi radiobutton token attributes access query

本文链接：https://blog.csdn.net/mailreboot/article/details/1466307

版权

这篇博客介绍了如何使用DELPHI通过Radiobutton选择不同的操作，实现计算机的关机、重新启动、安全关机和强制关机。核心代码涉及到ExitWindowsEx函数的调用，并通过AdjustToken()过程获取关机控制权。

摘要由CSDN通过智能技术生成

if Application.MessageBox('确定關机?','確認關閉電腦',MB_YESNO   )=IDYES   then
begin
if RadioButton1.Checked=true   then
ExitWindowsEx(EWX_LOGOFF,0)   //以其他用戶身份登錄
else if RadioButton2.Checked=true   then
ExitWindowsEx(EWX_SHUTDOWN,1)   //安全關机
else if RadioButton3.Checked=true   then
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;

procedure tform1.ShutDown;
procedure AdjustToken(); //获取关机控制权
var
    hdlProcessHandle, hdlTokenHandle, lBufferNeeded: Cardinal;
    tmpLuid: Int64;
//tkpPrivilegeCount: Int64;
    tkp, tkpNewButIgnored: TOKEN_PRIVILEGES;
    Privilege: array[0..0] of _LUID_AND_ATTRIBUTES;
begin
    hdlProcessHandle := GetCurrentProcess;
    OpenProc