Ä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
3 Kommentare zum Snippet