| Вопрос: Диалог свойств файла | Добавлено: 14.05.04 15:47 |
Автор вопроса:  ZeroX | ICQ: 220401330 |
| Как программно вызвать диалог свойств того или иного файла |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #1 | Добавлено: 14.05.04 16:01 |
|
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 Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long Sub ShowProps(FileName As String, OwnerhWnd As Long) Dim SEI As SHELLEXECUTEINFO Dim r As Long With SEI 'Set the structure's size .cbSize = Len(SEI) 'Seet the mask .fMask = SEE_MASK_NOCLOSEPROCESS Or _ SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI 'Set the owner window .hwnd = OwnerhWnd 'Show the properties .lpVerb = "properties" 'Set the filename .lpFile = FileName .lpParameters = vbNullChar .lpDirectory = vbNullChar .nShow = 0 .hInstApp = 0 .lpIDList = 0 End With r = ShellExecuteEx(SEI) End Sub Private Sub Form_Load() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net ShowProps "c:\config.sys", Me.hwnd End Sub |
||
|
Номер ответа: 2 Автор ответа:  ZeroX ICQ: 220401330 Вопросов: 47 Ответов: 406 |
Профиль | | #2 | Добавлено: 14.05.04 17:18 |
Thanx
|
||
Страница: 1 |