Как вызвать окно свойств файла?

[brigval]

Подскажите, пожалуйста, как программо вызвать окно свойств, открывающееся по "правый клик по файлу/папке > Свойства"?

[Griffin]

тебе именно окно нужно или хочешь просто знать одно из свойств файла?

[brigval]

Надо вызвать само окно как дополнительный сервис.

Сегодня нашел в Интернете такой код:

Код: Выделить всё

Private Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long
Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
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 Form_Load()
Call ShowProps("C:\AUTOEXEC.BAT", Me.hwnd)
End Sub

Переделал для VB.NET

Код: Выделить всё

Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (ByVal SEI As SHELLEXECUTEINFO) As Integer


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



   Public Structure SHELLEXECUTEINFO
      Dim cbSize As Integer
      Dim fMask As Integer
      Dim hwnd As Integer
      Dim lpVerb As String
      Dim lpFile As String
      Dim lpParameters As String
      Dim lpDirectory As String
      Dim nShow As Integer
      Dim hInstApp As Integer
      Dim lpIDList As Integer
      Dim lpClass As String
      Dim hkeyClass As Integer
      Dim dwHotKey As Integer
      Dim hIcon As Integer
      Dim hProcess As Integer
   End Structure

   Public Sub ShowProps(ByVal FileName As String, ByVal OwnerhWnd As Integer)
      Dim SEI As SHELLEXECUTEINFO
      Dim r As Integer
      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

Но на строке

Код: Выделить всё

r = ShellExecuteEX(SEI)

программа останавливается и выдает сообщение

Attempted to read or write protected memory. This is often an indication that other memory is corrupt.

Это моя вторая программка на VB.NET. Хочу сделать для работы удобный просмотр прав доступа пользователей на сервере. Что можно здесь предпринять?

[Viper]

brigval, ну что же все встают на одни и те же грабли? Замени все Long в декларациях и структурах на Integer и будет тебе щастье.
З.Ы. Хотя возможно есть и другие ошибки, просто эта сразу в глаза бросается.

[brigval]

Уважаемый, Viper, но в моем коде для VB.NET переменные типа Long отсутствуют, а ошибка все-таки выскакивает.

[brigval]

Заработало!

Попробовал запустить код на VB6 и вяснил, что вместо

Код: Выделить всё

Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (ByVal SEI As SHELLEXECUTEINFO) As Integer

надо было

Код: Выделить всё

Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (ByRef SEI As SHELLEXECUTEINFO) As Integer

Пользоательский тип не может передаваться по значению (ByVal), что мне сам автоматом подставил VB.NET. Малость подпортил код

[Viper]

brigval, извиняюсь, попутал разные куски кода для vb6 и vb.net.

[brigval]

попутал разные куски кода

Я так и подумал. Да ничего страшного. Бывает. Спасибо за отклик. Главное, что заработало!

[brigval]

Вопрос в продолжениие темы. Как вызвать окно свойств не только для одного, но и для некольких файлов? Внесение в переменную FileName двух путей в кавычках через пробел результата не дало.

[iGrok]

А если не через пробел, а через vbNullString, и закончить все двумя vbNullString ?

З.Ы. Это только предположение. Тухлятиной не кидаться )

[kibernetics]

А можно ли открыть свойства файла, да и ещё автоматом активировать вкладку Безопасность(Security) ?