zoukankan      html  css  js  c++  java
  • Delphi 操作Windows系统睡眠-防止系统/电脑 进入睡眠或关闭显示器

    Delphi 操作Windows系统睡眠-防止系统/电脑 进入睡眠或关闭显示器

    1、防止进入睡眠

    1.1、引用单元

    Delphi 单元:

    unit SystemCriticalU;
    
    interface
    
    uses
      Windows;
    
    type
      TSystemCritical = class
      private
        FIsCritical: Boolean;
        procedure SetIsCritical(const Value: Boolean) ;
      protected
        procedure UpdateCritical(Value: Boolean) ; virtual;
      public
        constructor Create;
        property IsCritical: Boolean read FIsCritical write SetIsCritical;
      end;
    
    var
      SystemCritical: TSystemCritical;
    
    implementation
    
    { TSystemCritical }
    // REF: http://msdn.microsoft.com/en-us/library/aa373208.aspx
    type
      EXECUTION_STATE = DWORD;
      
    const
      ES_SYSTEM_REQUIRED = $00000001;
      ES_DISPLAY_REQUIRED = $00000002;
      ES_USER_PRESENT = $00000004;
      ES_AWAYMODE_REQUIRED = $00000040;
      ES_CONTINUOUS = $80000000;
      
      KernelDLL = 'kernel32.dll';
    
    {
      SetThreadExecutionState Function
      Enables an application to inform the system that it is in use,
      thereby preventing the system from entering sleep or turning off the
      display while the application is running.
    }
    procedure SetThreadExecutionState(ESFlags: EXECUTION_STATE);
      stdcall; external kernel32 name 'SetThreadExecutionState';
    
    constructor TSystemCritical.Create;
    begin
      inherited;
      FIsCritical := False;
    end;
    
    procedure TSystemCritical.SetIsCritical(const Value: Boolean) ;
    begin
      if FIsCritical = Value then
        Exit;
      FIsCritical := Value;
      UpdateCritical(FIsCritical);
    end;
    
    procedure TSystemCritical.UpdateCritical(Value: Boolean) ;
    begin
      if Value then
        // 防止睡眠空闲超时和关机。
        SetThreadExecutionState(ES_SYSTEM_REQUIRED or ES_CONTINUOUS)
      else
        //清除执行状态标志以禁用离开模式并允许
        // 系统空闲以正常睡眠
        SetThreadExecutionState(ES_CONTINUOUS);
    end;
    
    initialization
    
    SystemCritical := TSystemCritical.Create;
    
    finalization
    
    SystemCritical.IsCritical := False;
    SystemCritical.Free;
    
    end. 

    引用示例:

    SystemCritical.IsCritical = true;
    try
      // 这里做关键操作
      // 不会进入睡眠和关闭显示器
    finally
      SystemCritical.IsCritical = false;
    end;
    

     

    1.2 直接使用WinAPI函数,点击查看:SetThreadExecutionState 

     

     

    2、使电脑进入睡眠

    //提升进程令牌函数
    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
      SetSystemPowerState(false,TRUE); //进入睡眠
    end else begin
      //
    end;
    

      

      

    创建时间:2020.11.03  更新时间:

    博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你所有帮助,谢谢!
  • 相关阅读:
    计算机网络基础,子网掩码,网络号,子网号,主机号主机数量计算方式
    Nginx配置大全与搭建手册
    Windows10仿mac-os主题
    kali-linux知识整理与渗透测试指南
    简单的钓鱼网站制作-Setoolkit
    渗透测试常用工具-Metasploit_常用模块
    提权方式及原理简介(面试)
    修改dedecms精简版
    内网存活主机探测的一些方法
    免杀测试
  • 原文地址:https://www.cnblogs.com/guorongtao/p/13918207.html
Copyright © 2011-2022 走看看