FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour MsgBeep()
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
MsgBeep()
Posted: Mon Sep 15, 2014 01:03 PM
// http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=15441

Code (fw): Select all Collapse
#include "fivewin.ch"

#define BEEP_OK         0x00000000
#define BEEP_TOQUE      0x00000010
#define BEEP_PERGUNTA   0x00000020
#define BEEP_EXCLAMACAO 0x00000030
#define BEEP_ASTERISCO  0x00000040
#define BEEP_SIMPLES    0xffffffff

Function Main()

   MsgBeep(BEEP_OK )

   syswait(1)

   MsgBeep( BEEP_TOQUE )

   syswait(1)

   MsgBeep( BEEP_PERGUNTA )

   syswait(1)

   MsgBeep( BEEP_EXCLAMACAO )

   syswait(1)

   MsgBeep( BEEP_ASTERISCO )

   syswait(1)

   MsgBeep( BEEP_SIMPLES )

return nil

#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC( MSGBEEP )
{
 MessageBeep( hb_parni( 1 ) );
}
#pragma ENDDUMP


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 498
Joined: Thu May 10, 2007 08:30 PM
Re: MsgBeep()
Posted: Wed Sep 17, 2014 11:18 AM

Muy interesante karinha. Lo voy a probar.

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

Continue the discussion