共通プログラムメニューパス取得

共通プログラムメニューのパスを文字列strPathに格納するサンプルです。

' API 関数定義
Private Declare Function SHGetSpecialFolderPath Lib _
"Shell32" Alias "SHGetSpecialFolderPathA" ( _
ByVal hWnd As Long, _
ByVal lpPath As String, _
ByVal nFolder As Long, _
ByVal fCreate As Boolean) As Boolean
' フォルダID
Private Const CSIDL_COMMON_PROGRAMS = 23

' 共通プログラムメニューのパスを取得するサンプル
Public Function GetCommonProgramMenuDir()
Dim strTemp As String * 256
Dim intPoint As Integer
Dim strPath As String
' 共通プログラムメニューのパスを取得
If SHGetSpecialFolderPath( _
0, strTemp, CSIDL_COMMON_PROGRAMS, False) Then
' 余計なNULL文字を削除
intPoint = InStr(strTemp, Chr(0))
strPath = Left(strTemp, intPoint - 1)
End If
GetCommonProgramMenuDir = strPath
End Function

// shlobj.hをインクルードする必要があります。
// #include <shlobj.h>
char strPath[_MAX_PATH];
SHGetSpecialFolderPath(
NULL, strPath, CSIDL_COMMON_PROGRAMS, FALSE);