Clarion - Sistema Admon. de un RESTAURANT / BAR

!   Hacer sonido cuando muestra un message

 IF NOT(Glo:EsSuperUsuario)

  BEEP(BEEP:SystemDefault)  ;  YIELD()

  MESSAGE('Ya se encuentra seteado en Modo Usuario.', |

      'Cambiar a Usuario Normal', '.\wizatron.ico')

  Return Level:Fatal

END

!Si queres reproducir un archivo  con sonido  (wav)

!Definiciones de datos    After Global Data  priority 4000

Channel     long

Co_Channel          long

!!!!!!!!!!!!!!!!!!!!!!!

!Embed this into the Global Map   !32 MCI      priority 4000

! Prototype Windows Multimedia Functions

Module('WinAPI')

  MciGetErrorString(ULONG,*CSTRING,USHORT),SHORT,PASCAL,RAW,PROC,NAME('MciGetErrorStringA')

  MciSendString(*CSTRING,*CSTRING,USHORT,USHORT),ULONG,PASCAL,RAW,PROC,NAME('MciSendStringA')

  SndPlaySound(*CSTRING,UNSIGNED),BOOL,PROC,pascal,raw,NAME('sndPlaySoundA')

End

Omit('xxxxx')

 MODULE('WINDOWS.LIB')

    GetSystemMetrics(SHORT),SHORT,RAW,PASCAL

    GetWindowsDirectory(*CSTRING,USHORT),USHORT,RAW,PASCAL

    GetSystemDirectory(*CSTRING,USHORT),USHORT,RAW,PASCAL

    GetModuleFileName(SHORT,*CSTRING,SHORT),SHORT,RAW,PASCAL

    _lopen(*CSTRING,SHORT),SHORT,RAW,PASCAL

    _lclose(SHORT),SHORT,RAW,PASCAL

  .

  MODULE('MMSYSTEM.LIB')

  OMIT('***',_WIDTH32_)

    MCISendString(*CSTRING,*CSTRING,UNSIGNED,USHORT),ULONG,PASCAL,RAW

    ***

  COMPILE('***',_WIDTH32_)

 MCISendString(*CSTRING,*CSTRING,UNSIGNED,ULONG),ULONG,PASCAL,RAW,NAME('MCISendStringA')

    ***

    !mciSendString(*CSTRING,*CSTRING,USHORT,SHORT),ULONG,RAW,PASCAL

    mmsystemGetVersion(),LONG,RAW,PASCAL

  .

('xxxxx')

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!  Código

    Co_Channel=(Upper(COMMAND(0)))

    hndlFrame=TARGET{PROP:handle}

    Glo:Archivo='NewSenas.wav'

    x#=SndPlaySound(Glo:Archivo,0)