Restart-Funktion Blendet den Dialog ein, der den Benutzer auffordert das System neu zu starten, damit die Änderungen wirksam werden.
Betriebssystem:  Win95, Win98, WinNT, Win2000, WinME	Views:  3.073

Beschreibung:
Blendet den Dialog ein, der den Benutzer auffordert das System neu zu starten, damit die Änderungen wirksam werden. Dieser Diaolg wird auch von vielen Installationsprogrammen benutzt, wenn gerade verwendete System-Dateien aktualisiert werden müssen.

Deklaration:

Declare Function RestartDialog Lib "shell32.dll" _
  Alias "#59" ( _
  ByVal hwndOwner As Long, _
  ByVal lpstrReason As String, _
  ByVal uFlags As Long) As Long

Parameter:

hwndOwner	Handle des Fenster, welches die Funktion aufruft. Der aufgerufene Dialog verhält sich modal dazu.
lpstrReason	Ein Text, welcher zusätzlich im Dialogfenster angezeigt wird.
uFlags	Eine der nachfolgenden Konstanten, die den Vorgang beschreiben, der ausgeführt wird, wenn der Benutzer auf "Ja" klickt.

uFlags Konstanten:

Const EWX_LOGOFF = &H0 ' Neu Anmelden
Const EWX_SHUTDOWN = &H1 ' Herunterfahren
Const EWX_REBOOT = &H2 ' Neu Starten

Rückgabewert:
Der Rückgabewert der Funktion ist eine der folgenden Konstanten. Ist die Funktion nicht erfolgreich, so entspricht der Rückgabewert "IDYES".

Const IDYES = 6 ' Der Benutzter hat "Ja" gewählt
Const IDNO = 7 ' Der Benutzer hat "Nein" gewählt

Beispiel:

Private Declare Function RestartDialog Lib "shell32.dll" _
  Alias "#59" ( _
  ByVal hwndOwner As Long,ByVal lpstrReason As String, _
  ByVal uFlags As Long) As Long 
 
Const IDYES = 6
Const IDNO = 7
Const EWX_LOGOFF = &H0
Const EWX_SHUTDOWN = &H1
Const EWX_REBOOT = &H2

Private Sub Command1_Click () 
  Dim RetVal As Long, TmpGrund As String 
  TmpGrund = "Verwendete Systemdateien müssen aktualisiert werden."
 
  ' für Windows NT
  ' TmpGrund = StrConv(TmpGrund, vbUnicode)
  RetVal = RestartDialog(Me.hWnd, TmpGrund, EWX_REBOOT) 
 
  If RetVal = IDNO Then 
    Debug.Print "Der Computer wird nicht Heruntergefahren" 
  Else 
    Debug.Print "Der Computer wird Heruntergefahren" 
  End If 
End Sub