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.182 mal aufgerufen. |
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. Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. 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. |