こんばんは。
早速質問ですが、以下のソースをデバッグするとエラーが起こります。
コード:
Function GetFolderPath() As Long
Dim bi As BROWSEINFO
Dim pidl As Long
'BROWSEINFO構造体の初期化
FillMemory(VarPtr(bi),Len(bi),0)
bi.hwndOwner=hMainWnd
bi.lpszTitle="フォルダを選択してください"
bi.ulFlags=BIF_RETURNONLYFSDIRS
'「フォルダの参照」ダイアログ?#123;ックスを表示
pidl=SHBrowseForFolder(bi)
If pidl Then
'フォルダへのパスを取得(lpFolderポインタが示すバッファにコピ?#91;)
SHGetPathFromIDList(pidl, ChosenFolderPath)
CoTaskMemFree(pidl)
GetFolderPath=1
SetDlgItemText(hMainWnd, Static_NowFolderPath, ChosenFolderPath)
Else
GetFolderPath=0
End If
End Function
これをデバッグで実行すると例外処理が出ます。デバッグで突き止めていくと「pidl=SHBrowseForFolder(bi)」の部分でアクセス違反が起こっているようです。
何度も投稿していますが解決しないのでまた投稿します。
二つ目ですが、ある本を見ていた時、「DirectXを使ってパソコンが再生している音楽を録画する」というソフトがありました。
そこでですが、ActiveBasic4.0のDirectXでもこういうことが可能でしょうか?
二つともお答えお願いいたします。