Microsoft Access Programmierrezepte

R12.19 Den Herunterfahren-Dialog anzeigen

Aufgabe

Sie möchten nicht sofort den PC herunterfahren, sondern den entsprechenden Windows-Dialog anzeigen.

Lösung

Mit einer undokumentierten API-Funktion aus der Shell-API bewerkstelligen Sie die obige Aufgabe.

Oberfläche

Ein einfaches Formular mit zwei Befehlsschaltflächen genügt.

Quelltext

Einbinden der API-Funktion über einen Alias:

Private Declare Function ShowShutDownDialog Lib "shell32.dll" Alias "#60" (ByVal dwReserved _
                                                                           As Long) As Long

Dialog anzeigen:

Private Sub OK_Click()
  Dim l As Long
  On Error Resume Next
  l = ShowShutDownDialog(0)
End Sub

Test

Nach dem Klick auf die Start-Schaltfläche erscheint der gewünschte Dialog:

Abbildung 12.18 Der Herunterfahren-Dialog