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.852 mal aufgerufen. |
sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |