AbortSystemShutdown

[Alexander N. Samarin]

В AfApiViewer'е есть функция AbortSystemShutdown, в ApiGuide - нет. Не подскажет кто-нибуть, что это такое???
Декларация:

Код: Выделить всё

Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long

[Jenizix]

ну судя по названию она прекращает ребут системы....типа shutdown -a

[Alexander N. Samarin]

До этого догадался. Запустил выключение системы, затем запустил ее, но не сработало.
Больше никто не пробовал?

[Морфий]

Код: Выделить всё

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 2 Or UnloadMode = 3 Then

MsgBox "Нельзя выключать компьютер.", vbCritical

AbortSystemShutdown GetPCName
Cancel = -1
End If

End Sub


[uhm]

Вот, хелп из MSDN'а:

AbortSystemShutdown

The AbortSystemShutdown function stops a system shutdown started by using the InitiateSystemShutdown function.


BOOL AbortSystemShutdown(
LPTSTR lpMachineName
);

Parameters
lpMachineName
[in] Pointer to the null-terminated string that specifies the network name of the computer where the shutdown is to be stopped. If lpMachineName is NULL or an empty string, the function stops the shutdown on the local computer.

Полный текст на http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/abortsystemshutdown.asp

[Морфий]

Правда, те приложения, которые получат сообщения WM_QUERYENDSESSION и WM_ENDSESSION раньше твоей, будут закрыты.

[Морфий]

Значит, как вариант, можно постараться оказаться первым в списке раздачи сообщений.

[GSerg]

Постарайся, постарайся

[Sebas]

1. с EWX_FORCE не пашет
2. Привелегии установил?

[Alexander N. Samarin]

Код: Выделить всё

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 2 Or UnloadMode = 3 Then

MsgBox "Нельзя выключать компьютер.", vbCritical

AbortSystemShutdown GetPCName
Cancel = -1
End If

End Sub


Может лучше так:

Код: Выделить всё


Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 2 Or UnloadMode = 3 Then
        AbortSystemShutdown GetPCName
        Cancel = -1

        MsgBox "Нельзя выключать компьютер.", vbCritical
    End If
End Sub


Иначе иа увидим MsgBax, а операционка будет аккуратно закрывать приложения одно за другим.
Сразу вопрос: как получить сообщение об выключении компьютера первым? А то вывел ShutDown на рабочий стол и иногда промахиваюсь

[xolod]

Alexander N. Samarin
Никак. Можешь только ловить WM_QUERYENDSESSION в своем приложении и возвращать 0 на этот запрос постоянно (твое приложение и все за ним не закроются).
А выбор о порядке закрытия приложений базируется на каких-то внутренних алгоритмах системы, не поддающихся распознаванию.

[Alexander N. Samarin]

А выбор о порядке закрытия приложений базируется на каких-то внутренних алгоритмах системы, не поддающихся распознаванию.

Может, в случайном порядке?

[Alexander N. Samarin]

Код: Выделить всё

AbortSystemShutdown GetPCName


А что есть GetPCName?

[Морфий]

А что есть GetPCName?

Это есть имя компьютера, на котором надо отменять выключение.
Если оставить пустым, как в этом случае, то работа идет с локальным компом.

[xolod]

2 Alexander N. Samarin
Ну с этим вопросом к первоисточнику. Я тут не советчик.

[Alexander N. Samarin]

Попробовал - классная штука для зависающих программ!

[GM]

А выбор о порядке закрытия приложений базируется на каких-то внутренних алгоритмах системы, не поддающихся распознаванию.

Каждый процесс имеет свои ShutdownParameters, судя из них система и закрывает одни процессы первыми другие вторыми. Устанавливается с помощью

Код: Выделить всё

Private Declare Function SetProcessPriorityBoost Lib "kernel32.dll" (ByVal hProcess As Long, ByVal bDisablePriorityBoost As Long) As Long


[Alexander N. Samarin]

А как? объявление есть, как его использовать?