Beschreibung: Deklaration: Declare Function ExitWindowsEx Lib "user32" ( _ ByVal uFlags As Long, _ ByVal dwReserved As Long) As Long Parameter:
uFlags Konstanten: Const EWX_FORCE = 4 ' Beendet alle Programme ohne zusätzliche Aufforderung Const EWX_LOGOFF = 0 ' Meldet sich neu am Netzwerk an Const EWX_REBOOT = 2 ' Startet den Computer neu Const EWX_SHUTDOWN = 1 ' Fährt den Computer herunter Const EWX_POWEROFF = 8 ' Fährt den Computer herunter und schaltet ihn ab Rückgabewert: Beispiel: Private Declare Function ExitWindowsEx Lib "user32" ( _ ByVal uFlags As Long, _ dwReserved As Long) As Long Private Const EWX_FORCE = 4 Private Const EWX_LOGOFF = 0 Private Const EWX_REBOOT = 2 Private Const EWX_SHUTDOWN = 1 Private Const EWX_POWEROFF = 8 Private Sub Command1_Click () Dim Retval As Long, MsgResult As Long MsgResult = MsgBox("Wollen Sie den Computer jetzt neu starten?", _ vbQuestion + vbYesNo, "Neu starten") If MsgResult = vbYes Then Retval = ExitWindowsEx( EWX_REBOOT, 0&) If Retval = 0 Then MsgBox "Der Computer kann nicht " & _ "heruntergefahren werden.", vbInformation End If End Sub Diese Seite wurde bereits 20.245 mal aufgerufen. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung 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. |