home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / AVI_PLYR / AVIGLOB.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-03-29  |  761 b   |  27 lines
  1. ' Get the window "handle#" of current focused window
  2.    Declare Function GetFocus Lib "User" () As Integer
  3.  
  4. ' Send command strings to driver
  5.       Declare Function mciExecute Lib "mmsystem.dll" (ByVal A$) As Integer
  6.  
  7. ' Define our Globals
  8.    Global AliasName$
  9.    Global mciFile As String
  10.    Global HwndFrame As Integer
  11.    Global Paused As Integer
  12.    Global SoundStatus As Integer
  13.  
  14. ' This subroutine allows any Windows events to be processed.
  15. ' This may be necessary to solve any synchronization
  16. ' problems with Windows events.
  17. '
  18. ' This subroutine can also be used to force a delay in
  19. ' processing.
  20. Sub WaitForEventsToFinish (NbrTimes As Integer)
  21.    Dim i As Integer
  22.    For i = 1 To NbrTimes
  23.       dummy% = DoEvents()
  24.    Next i
  25. End Sub
  26.  
  27.