'Hallo ktr...
 
'Hier ein Lösungsbeispiel zu starten eines bekannten Bildschirmschoners.
'NG.: 22.02.03.do.
'Hinweis  : Eine Fehlerbehandlung wurde nicht integriert. Passen Sie den hier
'           verwendeten Bildschirmschoner Ihrem System an.
 
Private Sub Command1_Click()
    Dim hWindow     As Long
    Dim sPath       As String
 
    sPath = GetWindowsSystemDirectory & "Flying Windows.scr"
    hWindow = GetDesktopWindow()
    'Variante 1
    Call ShellExecute(hWindow, "Open", sPath, vbNullString, vbNullString, 1)
    'oder...
    'Variante 2
    'Call Shell(GetWindowsSystemDirectory & "Flying Windows.scr /s")
End Sub
 
Private Sub Command2_Click()
    Unload Me
End Sub
 
'IN ein Modul
Private Declare Function GetSystemDirectory Lib "kernel32" _
                                Alias "GetSystemDirectoryA" _
                                (ByVal lpBuffer As String, _
                                ByVal nSize As Long) _
                                As Long
 
Public Declare Function ShellExecute Lib "shell32.dll" _
                                Alias "ShellExecuteA" _
                                (ByVal hwnd As Long, _
                                ByVal lpOperation As String, _
                                ByVal lpFile As String, _
                                ByVal lpParameters As String, _
                                ByVal lpDirectory As String, _
                                ByVal nShowCmd As Long) _
                                As Long
 
Public Declare Function GetDesktopWindow Lib "user32" () _
                                As Long
 
Public Function GetWindowsSystemDirectory() As String
    Dim sBuffer As String
    Dim nLen    As Long
 
    sBuffer = Space$(255)
    nLen = GetSystemDirectory(sBuffer, Len(sBuffer))
    GetWindowsSystemDirectory = Left$(sBuffer, nLen)
 
    If Right$(GetWindowsSystemDirectory, 1) <> "\" Then
        GetWindowsSystemDirectory = GetWindowsSystemDirectory & "\"
    End If
End Function
 
'MfG
'Frank