Отменить или задержать выключение ПК

[Janger]

у меня не получается отменить выключение Windows.
Я нашёл код:

procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
if MessageDlg('Выключить Windows?',mtConfirmation,[mbYes,mbNo], 0) = mrNo then
begin
  Msg.Result := 0;
  sleep(5000);
end
else
begin
  Msg.Result := 1;
  sleep(5000);
end;
end;

Но к сожалению Msg.Result := 0; не приносит желаемого результата.
В интернете очень мало информации на эту тему....
--
Идея у меня в том, что бы задержать выключение Windows хотя бы на 1 минуту. Примерно...
Но в любом случае программа сама потом выключит ПК

[Человек_Борща]

Заменить Msg.Msg что-то там на WM_NULL и послать дальше по цепочке.

[northener]

Сообщение от Janger

Идея у меня в том, что бы задержать выключение Windows хотя бы на 1 минуту. Примерно...
Но в любом случае программа сама потом выключит ПК

Зачем?
Процесс "выключения Windows" достаточно хорошо оптимизирован под среднего пользователя.

[Человек_Борща]

Идея у меня в том, что бы задержать выключение Windows хотя бы на 1 минуту. Примерно...

этим облом. Выключением можно прервать, прервав цепочку сообщений. Чтобы не пошло само ENDSESSION.

[northener]

Сообщение от Человек_Борща

Выключением можно прервать, прервав цепочку сообщений. Чтобы не пошло само ENDSESSION.

Прервать выключение в Винде 7 это сродни остановить Савранского.

[Stilet]

Прервать выключение в Винде 7 это сродни остановить Савранского.

Есть некоторые случаи когда это необходимо. Например для СУБД это критично может быть. Сессии не закрыты, транзакции не проведены, или deadlock какой, и нужно правильно завершить работу СУБД, иначе в следующий раз она может не запуститься. Поэтому нельзя давать выключать пока пользователь не завершит корректно работу программы.
Возможно у автора такая же критическая программа.

[Пепел Феникса]

In Windows Vista, if your application must block shutdown, in addition to returning FALSE or not responding to WM_QUERYENDSESSION, it should leverage this new UI by using a simple API to provide Windows with a reason string explaining why it is blocking shutdown. This API is straightforward:

BOOL ShutdownBlockReasonCreate(HWND hWnd, LPCWSTR pwszReason);

BOOL ShutdownBlockReasonDestroy(HWND hWnd);

BOOL ShutdownBlockReasonQuery(HWND hWnd, LPWSTR pwszBuff, DWORD *pcchBuff);

Use of this API is detailed more fully later in this topic, as well as in the MSDN documentation for the individual ShutdownBlockReason() functions.

Again, note that this API does not replace the need to return FALSE (or delay responding) to WM_QUERYENDSESSION to block shutdown. Applications need to do this in addition to using the API. Applications that return TRUE to WM_QUERYENDSESSION will be closed at shutdown, regardless of whether they have used the API.

Советую почитать

Выключением можно прервать, прервав цепочку сообщений. Чтобы не пошло само ENDSESSION.

WM_QUERYENDSESSION прерывать не нужно.(да и нет смысла)
а в WM_ENDSESSION можно уже ждать.

в ХР просто не отвечаем на WM_ENDSESSION столько сколько нужно.
в VIsta и выше нужно применить функции процитированные выше.