delphi 使电脑睡眠代码


本文整理自网络,侵删。

 

//提升进程令牌函数
function AdjustProcessPrivilege(ProcessHandle:THandle;Token_Name:Pchar):boolean;
var
Token:THandle;
TokenPri:_TOKEN_PRIVILEGES;
ProcessDest:int64;
l:DWORD;
begin
Result:=False;
if OpenProcessToken(ProcessHandle,TOKEN_Adjust_Privileges,Token) then
begin
if LookupPrivilegeValue(nil,Token_Name,ProcessDest) then
begin
TokenPri.PrivilegeCount:=1;
TokenPri.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
TokenPri.Privileges[0].Luid:=ProcessDest;
l:=0;
//更新进程令牌,成功返回TRUE
if AdjustTokenPrivileges(Token,False,TokenPri,sizeof(TokenPri),nil,l) then
Result:=True;
end;
end;
end;

 

//

if AdjustProcessPrivilege(GetCurrentProcess,'SeShutdownPrivilege') then//提升权限
begin
//showmessage('ok');
SetSystemPowerState(false,TRUE); //电脑进入睡眠状态 www.delphitop.com
end
else
begin
//showmessage('no');

end;

 

相关阅读 >>

Delphi html转义

Delphi java设置环境变量小工具

Delphi 数字摇号器

Delphi获取操作系统已运行的所有窗口程序

Delphi 读文件到十六进制的函数(Delphi 7 下可用)

Delphi调用命令行命令并获取返回信息

Delphi 下载网页

Delphi 通过api 隐藏任务栏时间日期

Delphi ado 连接 excel (附excel各个版本的版本号)

Delphi 动态生成九宫格按钮

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...