Beschreibung: Deklaration: Declare Function RestartDialog Lib "shell32.dll" _ Alias "#59" ( _ ByVal hwndOwner As Long, _ ByVal lpstrReason As String, _ ByVal uFlags As Long) As Long Parameter:
uFlags Konstanten: Const EWX_LOGOFF = &H0 ' Neu Anmelden Const EWX_SHUTDOWN = &H1 ' Herunterfahren Const EWX_REBOOT = &H2 ' Neu Starten Rückgabewert: 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 Diese Seite wurde bereits 7.919 mal aufgerufen. |
vb@rchiv CD Vol.6 ![]() ![]() Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. sevZIP40 Pro DLL ![]() Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |