| Вопрос: Midi+Hook+Loop | Добавлено: 23.01.04 15:56 |
Автор вопроса:  Millenium | Web-сайт: www.aliyev.us | ICQ: 629966 |
|
Hello everyone! Problemka! Hookayu mciSendString Midi. No ne Loop-tysa! Nado povtorno vosproizvodit! Vot kod! Pomoqite!!! 'Íåîáõîäèìûå îáúÿâëåíèÿ äëÿ midi-api Public Const MCI_NOTIFY_ABORTED = &H4 Public Const MCI_NOTIFY_FAILURE = &H8 Public Const MCI_NOTIFY_SUCCESSFUL = &H1 Public Const MCI_NOTIFY_SUPERSEDED = &H2 Public Const MM_MCINOTIFY = &H3B9 Public Const MM_MCISIGNAL = &H3CB Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Const GWL_EXSTYLE = (-20) Public Const GWL_HINSTANCE = (-6) Public Const GWL_HWNDPARENT = (-8) Public Const GWL_ID = (-12) |
| Ответы | Всего ответов: 0 |
Страница: