Consertando o MsgBeep

[Euclides]

O comando FW MsgBeep() não "leva" parametro. Mas é fácil convencê-lo de levar.

Código: Selecionar todos

#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

Até a próxima...
Euclides

[Kapiaba]

Excelente Euclides!! Obg. abs.