Rubrik: Windows/System | 09.05.01 |
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: 7.853 |
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