funçao tone() com harbour

[Jairo Maia]

Olá Euclides,

Não conheço a função MsgBeep(), não uso FiveWin e não uso xHarbour. Assim, não sei dizer porque no caso do Kapiaba a função toca apenas o som padrão. Mas em Harbour funciona perfeitamente todos os sons.

A função Wapi_MessageBeep( void ) tem e usa parâmetros. Abaixo o fonte dessa função, veja que se o parâmetro é omitido irá tocar o som padrão: 0xFFFFFFFF.

HB_FUNC( WAPI_MESSAGEBEEP )
{
hb_retl( Wapi_MessageBeep( ISNIL(1) ? (0xFFFFFFFF) : hb_parnl(1) ) ) ;
}

[Euclides]

Pois é, Jairo...
O MsgBeep() do FiveWin é um "wrapper" para o API MessageBeep() que está em USER32.DLL (como no meu "post" anterior)
Só que o pessoal da FWH não indicou o parametro e por isso, assume o padrão.
Por isso é que coloquei na seção de FiveWin o título "Consertando o MsgBeep()" (já que estamos na seção de (x)Harbour)
Aliás se retirar de meu exemplo as "coisas" do FiveWin ( fivewin.ch, syswait(1)), compilada com Harbour , funciona.
T+
Euclides

[Nascimento]

ainda nao consegui um beep usando o proprio speak da placa mae no windows7 agora
ja estou penssando da seguinte forma:

como eu faria dessa forma aqui...
1º
se o programa for instalado no windows xp

function tocaxp
tone(100)
tone(100)
tone(100)
return nil

2º se for windows7

funcion tocawin7

toca uma wave tipo alert.wav

obs: nao coloquei em tag cod por pedir um exemplo
agradeço os amigos desde ja