Power management procedure (shutdown,log off, screensaver, etc) programmatically

Spread the love

Power management procedure (shutdown,log off, screensaver, etc) programmatically


// Power management procedure (shutdown,log off, screensaver, etc)

function PowerMng(Action : Integer; Force : Boolean) : boolean;
var
   rl: Cardinal;
   hToken: Cardinal;
   tkp: TOKEN_PRIVILEGES;
begin
   if (Win32Platform = VER_PLATFORM_WIN32_NT) then
    begin
         // Get access to windows privilege
         OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
         LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
         tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;;
         tkp.PrivilegeCount := 1;
         AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);

         // Shutdown Windows
         if (Action = 1) and (Force = False) then
         begin
               ExitWindowsEx(EWX_SHUTDOWN, 0);
         end
         else if (Action = 1) And (Force = True) then
         begin
              ExitWindowsEx(EWX_SHUTDOWN OR EWX_FORCE, 0);
         end;

         // Restart/Reboot Windows
         if (Action = 2) and (Force = false) then
         begin
              ExitWindowsEx(EWX_REBOOT, 0)
         end
         else if (Action = 2) and (Force = true) then
         begin
              ExitWindowsEx(EWX_REBOOT or EWX_FORCE, 0);
         end;

         // Log Off Windows
         if (Action = 3) and (Force=false) then
         begin
              ExitWindowsEx(EWX_LOGOFF, 0);
         end
         else if (Action = 3) and (Force = true) then
         begin
              ExitWindowsEx(EWX_LOGOFF or EWX_FORCE, 0);
         end;

         // Turn off monitor
         if (Action = 4) And (Force = true) then
         begin
              SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
         end
         else if (Action = 4) and (Force = true) then // Turn ON monitor
         begin
              SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
         end;

         // Activating screensaver
         if (Action = 5) then
         begin
              DefWindowProc(Form1.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
         end;
    end;
end;