PC Toledo

Olá amigos!

Queria saber se tem alguma função que toque os sons do windows, definidos pelo usuário no painel de controle?

Grato pela atenção.

Você pode usar a função PlaySound() da API do Windows. Veja o MSDN para mais detalhes. Link: http://msdn.microsoft.com/en-us/library/aa909766.aspx

Maligno!

Pelo q entendi essa função é para windows CE ou coisa parecida.

Ela existe em alguma lib do xharbour?

Engano meu. Peguei o endereço do Google. É que só uso o MSDN que instalei no HD. O link mais certo é: http://msdn.microsoft.com/en-us/library ... S.85).aspx (melhor colar esse link no seu navegador. Está cortando o final dele).

Mas note que todas as informações são as mesmas, incluindo os parâmetros de chamada. Ou seja, é a mesma.

Essa função, especificamente, você não encontrará em qualquer LIB, uma vez que ela já existe na sua máquina, na biblioteca WINMM.DLL. Ela faz parte da API do Windows. A não ser que alguém tenha feita alguma função similar com algum recurso diferente, com uma passagem de argumento diferente, mais compatível com a linguagem XBase, por exemplo.

Um exemplo prático de como fazer: O parâmetro final "0" faz o sistema esperar a execução do som, se for "1" [se não me engano] permite a execução normal do sistema enquanto se toca.

Os códigos:
Pelo valores, dá pra perceber que eles podem ser combinados.

Mas a função sndPlaySound() existe hoje em dia apenas para retrocompatibilidade. Ela vem sendo substituída por PlaySound().
Curiosidade: no [x]Harbour é necessário usar uma função de chamada de DLL? Não se poderia executar a função da API diretamente?

Maligno escreveu:no [x]Harbour é necessário usar uma função de chamada de DLL?

Não necessariamente.

Maligno escreveu:Não se poderia executar a função da API diretamente?

Tenho quase certeza que sim (não dou certeza por não dominar o assunto), pois o Leonardo me passou um código em C que faz uso da API do Windows para travamento do teclado e mouse, que usei para homologar o TEF.

Imagino que não precise. Mas se tem dúvida, faça uma experiência simples com um WAV qualquer. E poste o resultado aqui.

Olá amigos!

Peguei a rotina que o Alamino passou e não deu certo, o único som que sai é um de erro, mesmo que eu coloque os daminhos dos arquivos.

Já a função que o Malígno informou, não sai nem som som de erro.

Tentei usar a função getenv() para pegar o conteúdo dos eventos de sons do windows, e também não retornou nada.

Tentei também usar a função loadlibrary() para ver se as funções das dlls poderiam ficar visíveis, mas ainda assim não deu.

To usando a gtwvw.lib, mas acho que não tem nenhuma função para tocar sons nela.

Vou continuar tentando aki.

Acabei de testar e funcionou certinho. Por via das dúvidas coloque a DLL junto com o programa. Vai ver o seu path não está apontando para a pasta de sistema do Windows.

De que jeito deu certo? Execução direta da função ou através da função DLLCall()?

Funcionou do jeito que eu exemplifiquei lá em cima.

Alamino, deu certo.

Não precisei colocar a dll na pasta do meu sistema, era o seguinte:
Tava colocando a linha de comando assim:

DLLCall("WINMM.DLL",32,"sndPlaySoundA", "c:\windows\media\Desligamento do Windows.wav", 0 )

E deveria ser colocado assim:

DLLCall("WINMM.DLL",32,"sndPlaySoundA", "c:\windows\media\Windows Shutdown.wav", 0 )

com o nome dos arquivos .wav em ingles.
Vi que quando copiei o arquivo da pasta c:\windows\midea para a pasta do meu sistema, foi mudado o nome do arquivo para ingles.
Deve ser porque eu uso o Windows 7.
Coisas do windows.

Agora vou fazer uma função para chamar os sons que eu quero.

Valeu mesmo a ajuda de voces.

Ressuscitando o tópico,

Existe alguma forma de fazer isso em clipper?
Se for o caso abro um tópico na seção do clipper.

Obrigado

Acho que sim Sandro, se me lembro, comecei a fazer isso com Clipper, compilado com o Blinker, mas aconselho ao amigo a migrar para (x)Harbour.

Hoje está muito fácil a migração.