| 分類:[VB.NET/VB2005 以降]
タイトルの通りですが、MCIのOPENを実行うするとフリーズしてしまいます。 色々なPCで試してみましたが、動くPCと動かないPCがあり困っております、どうぞよろしくお願いします。 試してみたOSですが 動かないPC:Win7(32ビット) 正しく動くPC:XP(SP3)、Win7(32ビット)、Win7(64ビット) で特にOS依存はしてなさそうです。
開発環境: ・VB.NET 2008 ・Win7(32ビット)
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _ ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, _ ByVal uReturnLength As Integer, _ ByVal hwndCallback As Integer _ ) As Integer
------------------------------------------------
省略
------------------------------------------------
''ファイルを開く wCmd = "open """ + wFileName + """ alias " + aliasName If mciSendString(wCmd, Nothing, 0, IntPtr.Zero) <> 0 Then ''この箇所でフリーズします Return End If '' ''再生 wCmd = "play " + aliasName mciSendString(wCmd, Nothing, 0, IntPtr.Zero)
|