Как приостановить выключение Windows

Question

Мне нужно отключить/отключить звуковую карту при запуске и завершении работы.

Я нашел код для выполнения работы, но часто Windows захлопывает через выключение, и звук никогда не отключается.

Может кто-нибудь, пожалуйста, сообщите мне, как приостановить выключение достаточно долго, чтобы мое приложение отключило звук? Я могу использовать простой TTimer, чтобы приостановить приложение достаточно долго, чтобы он мог запустить отключение, а затем позволить Windows завершить работу.

Как сказать Windows ждать?

Я замечаю, что если я оставлю Firefox включенным и попытаюсь завершить работу, Windows перестанет появляться с сообщением «Эти программы предотвращают закрытие окон ...» и требуется щелчок, чтобы заставить Firefox закрыть. Мне нужно это найти.

Answer 1

Вам необходимо обработать сообщение WM_QUERYENDSESSION. Он отправляется в каждое приложение до того, как Windows запустит процесс останова. Сделайте то, что вам нужно быстро, потому что неспособность реагировать достаточно быстро вызывает поведение, которое вы наблюдаете в FireFox, что обычно является признаком плохо разработанного приложения (и пользователь может прекратить его до того, как вы получите шанс закончить).

interface 

... 

type 
    TForm1 = class(TForm) 
    procedure WMQueryEndSession(var Msg: TWMQueryEndSession); 
     message WM_QUERYENDSESSION; 
    end; 

implementation 

procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession); 
begin 
    // Do what you need to do (quickly!) before closing 
    Msg.Result := True; 
end; 

(Подобно тому, как в сторону:. Благоприятная/отключение звуков является установка для каждого пользователя, и вы должны иметь очень хорошую необходимость вмешательства выбору пользователя Если бы я тебя, я хотел бы сделать конечно, мой деинсталлятор был хорошо протестирован, потому что любое приложение, которое мешало моим настройкам звука таким образом, было бы очень быстро удалено из моей системы.)

Answer 2

С Windows Vista, если вы зарегистрируете строку причины выключения с ОС или если приложение имеет окно верхнего уровня, ОС будет бесконечно ждать, пока ваша программа вернется с WM_QUERYENDSESSION при отображении экрана блокирующих приложений - или пока пользователь не решит закончить программу, конечно.

Приведенный ниже примерный код имитирует 45 секунд ожидания с Sleep. В первые пять секунд ожидания операционная система ждет терпеливо, только затем отображает полноэкранный интерфейс. Единственный способ немедленно показать экран - немедленно вернуть значение false с WM_QUERYENDSESSION. Но в этом случае вы не сможете возобновить работу.

Подробнее об отключении ОС для Vista и более поздних версий см. documentation.

type 
    TForm1 = class(TForm) 
    .. 
    protected 
    procedure WMQueryEndSession(var Message: TWMQueryEndSession); 
     message WM_QUERYENDSESSION; 
    .. 

... 

function ShutdownBlockReasonCreate(hWnd: HWND; Reason: LPCWSTR): Bool; 
    stdcall; external user32; 
function ShutdownBlockReasonDestroy(hWnd: HWND): Bool; stdcall; external user32; 


procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession); 
const 
    ENDSESSION_CRITICAL = $40000000; 
begin 
    Message.Result := LRESULT(True); 
    if ((Message.Unused and ENDSESSION_CRITICAL) = 0) then begin 
    ShutdownBlockReasonCreate(Handle, 'please wait while muting...'); 

    Sleep(45000); // do your work here 

    ShutdownBlockReasonDestroy(Handle); 
    end; 
end;