title image


Smiley OpenFile scheitert bei .AVI
A03 + wmplayer10



Ein Problem, das nicht zwingend in dieses Forum gehört - aber hier agieren die hellsten Köpfe...



Mittels einer Funktion (am Ende des Postings) öffne ich Dateien unterschiedlicher Formate. Beim Windows Media Player klappt das unter anderem mit .MP3 und .WAV, nicht aber mit .AVI (obwohl letztere problemlos direkt mit dem Player gestartet werden können). Es erscheint die bekannte Meldung "wmplayer.exe hat ein Problem festgestellt...".



Auch mit anderen als dem unten stehenden Script gibt es das gleiche Problem.



Wer weiß Rat?



Maxel





Option Compare Database

Option Explicit



Private Const API_NULL = 0&

Private Const API_False = 0

Private Const API_TRUE = 1

Private Const SW_SHOWNORMAL = 1

Private Const SE_ERR_NOASSOC = 31



Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function OpenWithDialog Lib "shell32.dll" Alias "OpenAs_RunDLL" (ByVal hWndOwner As Long, ByVal dwUnknown1 As Long, ByVal strFileName As String, ByVal dwUnknown2 As Long) As Long

Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long





Public Function fctOpenFileWithProg(ByRef strFile As String, Optional ByVal hwnd As Long = 0) As Boolean

Select Case ShellExecute(API_NULL, "open", strFile, API_NULL, API_NULL, SW_SHOWNORMAL)

Case SE_ERR_NOASSOC

If API_False = IsWindow(hwnd) Then hwnd = 0

fctOpenFileWithProg = (API_TRUE = OpenWithDialog(hwnd, API_NULL, strFile, API_NULL))



Case Is <= 32

fctOpenFileWithProg = False



Case Else

fctOpenFileWithProg = True

End Select

End Function



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: