为何不能自动关闭电脑呀?请看。。。 ExitWindowsSex(EWX_POWEROFF,0) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试试这人ExitWindowsEx(EWX_FORCE + EWX_SHUTDOWN, 0); 2000/xp等OS下需要权限,调整关机权限代码可参见超级猛料 ExitWindowxEx(EWX_SHUTDOWN,EWX_FORCE);98下可以在2000 和XP下要用到一个取得管理员要权限的API,可我记不得了 procedure TForm1.CloseComputer();Var st : SYSTEMTIME; hToken : THANDLE; tkp : TOKEN_PRIVILEGES; rr : Dword;Begin OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken); LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid); // 设定权限为1 tkp.PrivilegeCount := 1; tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; // 得到权限 AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil,rr); // 关闭计算机 ExitWindowsEx(EWX_FORCE + EWX_SHUTDOWN + EWX_POWEROFF, 0);End; 在线等将dll转换成exe的方法 delphi 异常处理-如何获得异常错误代号 如何复制数据库的内容 急,请高手赐教!ADO更新ORACLE数据库的一个问题。 linux 安装问题如下。。。。 我学delphi , 有何好书介绍? 关于Button的问题? 如何实现类似Delphi编辑器的dock窗体??? cmd下编译delphi程序 ADO动态连接数据库的异常处理 如何取到合计的值赋给变量? 调查,针对以delphi为主要工具的程序员:delphi的全部功能中,你感觉自己用到了几分之几?你还使用什么编程语言?你感觉你的第二编程语言
ExitWindowsEx(EWX_FORCE + EWX_SHUTDOWN, 0);
98下可以在2000 和XP下要用到一个取得管理员要权限的API,
可我记不得了
Var
st : SYSTEMTIME;
hToken : THANDLE;
tkp : TOKEN_PRIVILEGES;
rr : Dword;
Begin
OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
// 设定权限为1
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
// 得到权限
AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil,rr);
// 关闭计算机
ExitWindowsEx(EWX_FORCE + EWX_SHUTDOWN + EWX_POWEROFF, 0);
End;