Окно ожидания (спящий режим монитора) как на Win 7

{$APPTYPE CONSOLE}
uses
        Windows;
 
var
        SleepTime: Int64 = -7 * 60 * 60 * 1000 * 10000;
var
        hToken, hTimer: THandle;
        tp, prev: TTokenPrivileges;
        len: DWORD;
 
begin
        if not OpenProcessToken(GetCurrentProcess(),
                TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES, hToken) then
        begin
                WriteLn('OpenProcessToken failed');
                halt(1);
        end;
        if not LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid) then
        begin
                WriteLn('LookupPrivilegeValue failed');
                halt(1);
        end;
        tp.PrivilegeCount := 1;
        tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        if not AdjustTokenPrivileges(hToken, FALSE, tp, sizeof(TOKEN_PRIVILEGES), prev, len) or
                (GetLastError() = ERROR_NOT_ALL_ASSIGNED) then
        begin
                WriteLn('AdjustTokenPrivileges failed');
                halt(1);
        end;
        CloseHandle(hToken);
 
        hTimer := CreateWaitableTimer(nil, TRUE, nil);
        if hTimer = 0 then
        begin
                WriteLn('CreateWaitableTimer failed');
                halt(1);
        end;
        SetWaitableTimer(hTimer, SleepTime, 0, nil, nil, TRUE);
        SetSystemPowerState(TRUE, FALSE);
        WaitForSingleObject(hTimer, INFINITE);
        CloseHandle(hTimer);
end.