Timerイベント内でWindowsのシャットダウンを正常に行うには？ (ID:108198)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

さわさんありがとうございます。
シャットダウン特権の設定は以下のように別関数にて行っています。
このため、どのＰＣ・ＯＳでも
Timer1.Enabled = Falseのコメント・非コメントさえ変えれば、
正常にシャットダウンされます。

Private Function SetPrivillege(SE_NAME As String) As Boolean
    
    Dim lngRet      As Long
    
    Dim hToken      As Long
    Dim udtLUID     As LUID
    Dim udtTokenPrv As TOKEN_PRIVILEGES

'カレントプロセスに関連付けられているアクセストークンを開く
    If OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken) Then

' ローカル一意識別子(LUID)を取得し、指定された特権名をローカルに表現
        If LookupPrivilegeValue(vbNullString, SE_NAME, udtLUID) Then

udtTokenPrv.PrivilegeCount = 1
            udtTokenPrv.Privileges(0).pLuid = udtLUID
            udtTokenPrv.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
    
            ' 指定された特権を有効にする
            If AdjustTokenPrivileges(hToken, 0, udtTokenPrv, LenB(udtTokenPrv), ByVal 0&, ByVal 0&) Then
                SetPrivillege = True
            End If
        End If
    End If

' トークンハンドルを閉じる
    If hToken Then CloseHandle hToken

End Function

←解決時は質問者本人がここをチェックしてください。

戻る