Как программно вызвать окно свойств (Properties) файла? - Система - Интересные решения для программистов - Примеры кода

Система → Как программно вызвать окно свойств (Properties) файла? → Visual Basic

Создайте стандартный EXE-проект. Расположите на форме (Form) элементы FileListBox, DirListBox, DriveListBox и один элемент CommandButton. Добавьте нижеследующий код:

Private Declare Function ShellExecuteEX Lib _ 
        "shell32.dll" Alias "ShellExecuteEx" _ 
        (SEI As SHELLEXECUTEINFO) As Long

Private Const SEE_MASK_INVOKEIDLIST = &HC 
Private Const SEE_MASK_NOCLOSEPROCESS = &H40 
Private Const SEE_MASK_FLAG_NO_UI = &H400

Private Type SHELLEXECUTEINFO 
 cbSize As Long 
 fMask As Long 
 hwnd As Long 
 lpVerb As String 
 lpFile As String 
 lpParameters As String 
 lpDirectory As String 
 nShow As Long 
 hInstApp As Long 
 lpIDList As Long 
 lpClass As String 
 hkeyClass As Long 
 dwHotKey As Long 
 hIcon As Long 
 hProcess As Long 
End Type

Public Sub ShowProps(FileName As String, OwnerhWnd As Long) 
 Dim SEI As SHELLEXECUTEINFO 
 Dim r As Long 
 With SEI 
  .cbSize = Len(SEI) 
  .fMask = SEE_MASK_NOCLOSEPROCESS Or _ 
  SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI 
  .hwnd = OwnerhWnd 
  .lpVerb = "properties" 
  .lpFile = FileName 
  .lpParameters = vbNullChar 
  .lpDirectory = vbNullChar 
  .nShow = 0 
  .hInstApp = 0 
  .lpIDList = 0 
 End With 
 r = ShellExecuteEX(SEI) 
End Sub

Private Sub Command1_Click() 
 ShowProps Dir1.Path & "\" & File1.FileName, Me.hwnd 
End Sub

Private Sub Dir1_Change() 
 File1.Path = Dir1.Path 
 File1.Refresh 
End Sub

Private Sub Drive1_Change() 
 Dir1.Path = Drive1.Drive 
 Dir1.Refresh 
End Sub

file, properties, shell, shell32, vb, visual basic, window

KOS_MOS

unknown

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Система → Как программно вызвать окно свойств (Properties) файла? → Visual Basic Создайте стандартный EXE-проект. Расположите на форме (Form) элементы FileListBox, DirListBox, DriveListBox и один элемент CommandButton. Добавьте нижеследующий код: Private Declare Function ShellExecuteEX Lib _ "shell32.dll" Alias "ShellExecuteEx" _ (SEI As SHELLEXECUTEINFO) As Long Private Const SEE_MASK_INVOKEIDLIST = &HC Private Const SEE_MASK_NOCLOSEPROCESS = &H40 Private Const SEE_MASK_FLAG_NO_UI = &H400 Private Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type Public Sub ShowProps(FileName As String, OwnerhWnd As Long) Dim SEI As SHELLEXECUTEINFO Dim r As Long With SEI .cbSize = Len(SEI) .fMask = SEE_MASK_NOCLOSEPROCESS Or _ SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI .hwnd = OwnerhWnd .lpVerb = "properties" .lpFile = FileName .lpParameters = vbNullChar .lpDirectory = vbNullChar .nShow = 0 .hInstApp = 0 .lpIDList = 0 End With r = ShellExecuteEX(SEI) End Sub Private Sub Command1_Click() ShowProps Dir1.Path & "\" & File1.FileName, Me.hwnd End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path File1.Refresh End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Dir1.Refresh End Sub file, properties, shell, shell32, vb, visual basic, window KOS_MOS unknown 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt