Die Shell32.dll steht eigentlich für viele Funktionen,
die Sie vom Ihrem System her kennen und diese Funktionalität können Sie sich auf
einfachem Weg für Ihr eigenes Projekt zu nutze machen.
In diesem Tipp soll es darum gehen, die systemeigenen Funktionen "AUSFÜHREN" ;
"BEENDEN" und "PC-NEUSTART" zu nutzen.
Dabei stehen Ihnen einige Modifizierungsmöglichkeiten zu Verfügung.
Die Definition
'Für "BEENDEN" Aufruf
Private Declare Function SHShutDownDialog Lib "shell32" Alias
"#60" (ByVal YourGuess As Long) As Long 'Für
"AUSFÜHREN" Aufruf
Private Declare Function SHRunDialog Lib "shell32" Alias
"#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long,
ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
'Für "NEUSTART" Aufruf
Private Declare Function SHRestartSystemMB Lib "shell32" Alias
"#59" (ByVal hOwner As Long, ByVal sPrompt As String, ByVal uFlags As Long) As
Long
Die Aktionen
'Beenden (analog START/BEENDEN)
SHShutDownDialog 0
'PC-Neustart (mit der Option eigenen Infotext einzugeben)
Dim sPrompt As String
Dim uFlag As Long
sPrompt = "D-A-S I-S-T M-E-I-N T-E-X-T" & Chr(13) & Chr(10)
uFlag = 0 '(bekannte Infobox nach Neuinstall mit Computerneustart)
' uFlag = 1 '(kleinere Box)
If SHRestartSystemMB(hWnd, sPrompt, uFlag) = vbYes Then _
MsgBox "..und Tschüss "
'Ausführen (das Original)
SHRunDialog hWnd, 0, 0, vbNullString, vbNullString, -chkRunNoMRU
'Ausführen
(mit eigenem Infotext, ohne aktive History und ohne Durchsuchen)
Dim sTitle As String
Dim sPrompt As String
sTitle = "Das ist mein eigner Text"
sPrompt = "Das ist meine eigene Anzeige"
SHRunDialog hWnd, 0, 0, sTitle, sPrompt, -1
'Ausführen
(mit eigenem Infotext, mit aktiver History und mit Durchsuchen)
Dim sTitle As String
Dim sPrompt As String
sTitle = "Das ist mein eigner Text"
sPrompt = "Das ist meine eigene Anzeige"
SHRunDialog hWnd, 0, 0, sTitle, sPrompt, 0
Platzieren Sie die Anweisungen einfach zur Click Aktion eines Buttons und testen Sie
selbst, es sind noch einige Variationen möglich. |
