Consertando o MsgBeep
Enviado: 13 Set 2014 09:12
O comando FW MsgBeep() não "leva" parametro. Mas é fácil convencê-lo de levar.
Até a próxima...
Euclides
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
Euclides