Hallo!
Ich öffne mit dieser Funktion ein Windows-Eigenschaften-Fenster das mir die Dateieigenschaften einer Datei anzeigt:
Spoiler anzeigen
Das Öffnen und die Funktion funktioniert, aber wie bekomme ich das Fenster programmatisch wieder geschlossen..also so als würde man auf "Abbrechen" klicken?!?
Ich öffne mit dieser Funktion ein Windows-Eigenschaften-Fenster das mir die Dateieigenschaften einer Datei anzeigt:
VB.NET-Quellcode
-
- <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)>
- Public Structure SHELLEXECUTEINFO
- Public cbSize As Integer
- Public fMask As UInteger
- Public hwnd As IntPtr
- Public lpVerb As String
- Public lpFile As String
- Public lpParameters As String
- Public lpDirectory As String
- Public nShow As Integer
- Public hInstApp As Integer
- Public lpIDList As Integer
- Public lpClass As String
- Public hkeyClass As Integer
- Public dwHotKey As UInteger
- Public hIcon As Integer
- Public hProcess As Integer
- End Structure
- Private Const SW_SHOW As Integer = 5
- Private Const SEE_MASK_INVOKEIDLIST As UInteger = 12
- <Runtime.InteropServices.DllImport("shell32.dll")>
- Private Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
- End Function
- Public Shared Sub ShowProperties(ByVal path As String)
- Dim fi As FileInfo = New FileInfo(path)
- Dim info As SHELLEXECUTEINFO = New SHELLEXECUTEINFO()
- info.cbSize = Runtime.InteropServices.Marshal.SizeOf(info)
- info.lpVerb = "properties"
- info.lpFile = fi.Name
- info.lpDirectory = fi.DirectoryName
- info.nShow = SW_SHOW
- info.fMask = SEE_MASK_INVOKEIDLIST
- ShellExecuteEx(info)
- End Sub
Das Öffnen und die Funktion funktioniert, aber wie bekomme ich das Fenster programmatisch wieder geschlossen..also so als würde man auf "Abbrechen" klicken?!?