Common Dialog File Properties Called With API


‘Description: Invokes the File Explorer “Properties” dialog without OCX

‘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 ‘Optional parameter
‘       lpClass As String ‘Optional parameter
‘       hkeyClass As Long ‘Optional parameter
‘       dwHotKey As Long ‘Optional parameter
‘       hIcon As Long ‘Optional parameter
‘       hProcess As Long ‘Optional parameter
‘End Type

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

‘Declare Function ShellExecuteEX Lib “shell32.dll” Alias “ShellExecuteEx” _
        (SEI As SHELLEXECUTEINFO) As Long

‘Public Function ShowProperties(filename As String, OwnerhWnd As Long) As Long

       
       ‘     ‘open a file properties property page for specified file if return value
       ‘     ‘<=32 an error occurred
       ‘     ‘From: Delphi code provided by “Ian Land” (iml@dircon.co.uk)
       Dim SEI As SHELLEXECUTEINFO
       Dim r As Long
       
       ‘     ‘Fill in the SHELLEXECUTEINFO structure
       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

 
‘     ‘call the API
r = ShellExecuteEX(SEI)
 
‘     ‘return the instance handle as a sign of success
ShowProperties = SEI.hInstApp
 
‘End Function
‘Paste the following into a command button, etc.
‘Needs one textbox named Text1

        Dim r As Long
        Dim fname As String
       ‘      ‘get the filename and path from Text1
        fname = (Text1)
       ‘      ‘show the properties dialog, passing the filename
       ‘      ‘and the owner of the dialog
        r = ShowProperties(fname, Me.hwnd)
       
       ‘      ‘Display an error message if things didn’t go as planned
        If r <= 32 Then MsgBox “Error”

4 responses to “Common Dialog File Properties Called With API

  1. Наша предприятие имеет гордость Вам предложить лифтовое оборудование производства. Выставка лифтов, наилучшие цены на тяжелые лифты и малые грузовые лифты. Предлагаем найти на нашем лифт в предприятие с выгодой для Вашего бюджета.

  2. Наша предприятие имеет почтение Вам предложить качественное лифтовое снаряжение немецкого производства. Лифтов, доступнейшие на погрузочные лифты и маленькие грузовые лифты. Предлагаем найти на нашем портале лифт в с выгодой для Вашего бюджета.

  3. Посетите городской сайт Осиповичи-мировые новости, расписание движения поездов, карта района

  4. На интернет ресурсе RapForce.NET можно без каких либо вложений и без регистрации скачать более 2000 альбомов русского рэпа, несколько сотен клипов, найти единомышленников на форуме, поучаствовать в конкурсах. Все совершенно бесплатно, без регистрации, материалы выложены на несколько популярных обменников, обновляются ежечасно. Портал считается одним из крупнейших и посещаемых рэп порталов, здесь есть произведения как классики, так и последние новинки рэпа.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s