Resource Editor
2 отговора
65 прегледа
Resource Editor
Може ли някой да ми каже как да включа в Resource Editor *.avi или *.wav файлове и да ги извиквам след това. Май ще трябва да се използва някоя от API функциите. За bmp файлове знам как става.
Re: Resource Editor
За wav files.
Отваряш ресурсния файл и натискаш бутона ADD CUSTOM RESOURCE
след като добавиш wav файла, сложи този код в формата , добави
един бутон.
Dim WaveData() As Byte
Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
Private Declare Function sndPlaySound _
Lib "winmm.dll" Alias "sndPlaySoundA" ( _
lpszSoundName As Any, _
ByVal uFlags As Long _
) As Long
Public g_strTmpPath As String
Private m_strTEMP_File As String
Private m_lngRetCode As Long
Private m_clsRES As clsResFile
Private Sub Command1_Click()
Dim RetValue As Long
WaveData() = LoadResData(101, "CUSTOM")
RetValue = sndPlaySound(WaveData(0), SND_ASYNC Or SND_MEMORY)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Erase WaveData
Set Form1 = Nothing
End Sub

Отваряш ресурсния файл и натискаш бутона ADD CUSTOM RESOURCE
след като добавиш wav файла, сложи този код в формата , добави
един бутон.
Dim WaveData() As Byte
Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
Private Declare Function sndPlaySound _
Lib "winmm.dll" Alias "sndPlaySoundA" ( _
lpszSoundName As Any, _
ByVal uFlags As Long _
) As Long
Public g_strTmpPath As String
Private m_strTEMP_File As String
Private m_lngRetCode As Long
Private m_clsRES As clsResFile
Private Sub Command1_Click()
Dim RetValue As Long
WaveData() = LoadResData(101, "CUSTOM")
RetValue = sndPlaySound(WaveData(0), SND_ASYNC Or SND_MEMORY)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Erase WaveData
Set Form1 = Nothing
End Sub
Re: Resource Editor
А за avi е малко по сложно но сега нямам толко време .
потърси в [линк]

потърси в [линк]