コード: 全て選択
'SHELLEXECUTEINFO構造体の初期化
With info
.cbSize= Len(info)
.fMask= &HC or &H40 or &H400
.hWnd= hMainWnd As Long
.lpVerb= "properties"
.lpFile= buf
End With
'プロパティシートの呼び出し
If ShellExecuteEx(info)=0 Then
MessageBox(hMainWnd,"プロパティを表示できません","エラー",MB_OK or MB_ICONWARNING)
End If
http://abfan.mxm-wk.com/020.htmlより