Feedback

Flip3D aufrufen – Systemverzeichnis mit WMI

VB - Volker Steitz Dezember 8, 2009
2 Ratings 3/5

Sprache: VB

Ähnlich wie in Mac OSX zeigen Vista und Windows 7 alle offenen Fenster in einer aufwändigen Grafik. Dabei können die einzelnen Tasks nacheinander durchgeklickt werden. Die Funktion zeigt den Aufruf und wie man – alternativ – das Systemverzeichnis mit WMI ermittelt.
    Function Sysdir() As String
        Dim query As New SelectQuery("Win32_OperatingSystem")
        Dim search As New ManagementObjectSearcher(query)
        Dim sDir As String = String.Empty

        For Each info As ManagementObject In search.Get()
            Try
                sDir = info("SystemDirectory").ToString
            Catch ex As Exception
                sDir = System.Environment.SystemDirectory.ToString
            End Try
        Next
        Return sDir
    End Function



    Private path As String = Sysdir()

   Private Sub Flip3D()

        Try
            Dim prc As New Process
            prc.StartInfo.Arguments = " DwmApi #105"
            prc.StartInfo.WorkingDirectory = path
            prc.StartInfo.FileName = "RunDll32.exe"
            prc.Start()
            prc.WaitForExit()
        Catch ex As Exception
        End Try

    End Sub
    Function Sysdir() As String
        Dim query As New SelectQuery("Win32_OperatingSystem")
        Dim search As New ManagementObjectSearcher(query)
        Dim sDir As String = String.Empty

        For Each info As ManagementObject In search.Get()
            Try
                sDir = info("SystemDirectory").ToString
            Catch ex As Exception
                sDir = System.Environment.SystemDirectory.ToString
            End Try
        Next
        Return sDir
    End Function



    Private path As String = Sysdir()

   Private Sub Flip3D()

        Try
            Dim prc As New Process
            prc.StartInfo.Arguments = " DwmApi #105"
            prc.StartInfo.WorkingDirectory = path
            prc.StartInfo.FileName = "RunDll32.exe"
            prc.Start()
            prc.WaitForExit()
        Catch ex As Exception
        End Try

    End Sub
Abgelegt unter Aero Flip3D

Alte URL: /snippet/flip3d-aufrufen-systemverzeichnis-mit-wmi/1294

3 Kommentare