Диалог "Свойства файла"

Пример выводит диалог "Свойства файла"

Платформа: Windows

properties.png

#INCLUDE "windows.bi"
#INCLUDE "win/shellapi.bi"

Function ShowFileProperties(hWnd As HWND, File As String) As Integer
  Dim SE As SHELLEXECUTEINFO
  Dim szVerb As ZString*20 = "properties"
  With SE
    .hwnd = hWnd
    .cbSize = Sizeof(SHELLEXECUTEINFO)
    .fMask = SEE_MASK_NOCLOSEPROCESS+SEE_MASK_INVOKEIDLIST+SEE_MASK_FLAG_NO_UI
    .lpVerb = Strptr("properties")
    .lpFile = Strptr(File)
  End With
  Return ShellExecuteEx(@SE)
End Function


ShowFileProperties(0,"c:\Windows\notepad.exe")
Sleep()