Flip3D aufrufen - Systemverzeichnis mit WMI

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

    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