1 - Código Completo
O Delphi oferece uma maneira bem conveniente de se executar
os sons do sistema (aqueles sons que ouvimos quando iniciamos
ou fechamos o Windows, os sons dos diálogos de mensagens,
etc). Para ver este exemplo em funcionamento, comece colocando
a unidade MMSystem no uses do seu formulário.
Coloque um botão no formulário e faça com
que seu evento onclick seja similar ao mostrado
a seguir:
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound(PChar('SystemStart'),
0, SND_ASYNC);
end;
Execute o aplicativo e clique no botão. Você deverá
ouvir o som de inicialização do Windows. Funcionou?
Vamos entender o código agora:
2 - Entendendo a função PlaySound
A chave para a execução deste código é
a função PlaySound, presente
na unidade MMSystem.pas. Experimente abrir este arquivo (geralmente
localizado em "C:\Arquivo de programas\Borland\Delphi#\Source\Rtl\Win\MMSystem.pas")
e localizar esta função. Você deverá
encontrar o protótipo abaixo:
function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound:
DWORD): BOOL; stdcall;
O protótipo nos indica que esta função
retorna um valor boolean. Na prática este valor nunca
é testado. Mas você pode experimentar. Como você
deve se lembrar, stdcall especifica que os parâmetros
para a função serão passados da direita
para a esquerda. Veja ainda uma observação sobre
os parâmetros da função:
pszSound - Do tipo PChar (um ponteiro para
uma variável do tipo Char), este parâmetro receberá
o som a ser executado. O tamanho máximo desta string,
incluindo o caractere de final de linha (null terminator), é
de 256 caracteres. Se este parâmetro for 0
(NULL em C++) qualquer som do tipo wave que estiver sendo executado
será interrompido.
Três flags no parâmetro fdwSound
(SND_ALIAS, SND_FILENAME, and SND_RESOURCE) determinam se a
string de pszSound será interpretada
com um apelido para um evento do sistema, um nome de arquivo
ou um identificador de recurso. Se nenhuma destas flags for
especificada, a função PlaySound pesquisa o registro
ou o WIN.INI a fim de encontrar uma associação
com o nome do som especificado. Se uma associação
for encontrada, o evento de som é executado, do contrário,
a string fornecida é tratada como nome de arquivo.
hmod - Do tipo HMODULE (uma referência
ao módulo atual), este valor pode ser 0 em Delphi (e
NULL em C++), a menos que SND_RESOURCE seja definido no parâmtro
fdwSound.
fdwSound - Define as flags que controlam como
o som será executado. Os valores abaixo, extraídos
da referência da API do Windows podem ser usados:
| Valor |
Significado |
| SND_APPLICATION |
O som é executado usando
uma associação específica com a aplicação |
| SND_ALIAS |
O parâmetro pszSound deve ser um
apelido (alias) para um evento de sistema no registro
ou WIN.INI. Não use com SND_FILENAME ou SND_RESOURCE. |
| SND_ALIAS_ID |
O parâmetro pszSound é um
identificador de som pré-definido. |
SND_ASYNC |
O som é executado de forma assíncrona
e a função PlaySound retorna imediatamente
após o início da execução.
Para finalizar um som no formato wave que está
sendo executado de forma assíncrona, chame PlaySound
com o parâmetro pszSound defininido como 0 (em Delphi)
e NULL (em C++). |
SND_FILENAME |
O parâmetro pszSound é um
nome de arquivo. |
SND_LOOP |
O som é executado repetidamente
até que PlaySound seja chamado novamente com o
parâmetro pszSound definido com 0 (Delphi) ou NULL
(C++). Você deverá também definir
a flag SND_ASYNC para indicar um evento
de som assíncrono. |
SND_MEMORY |
Um arquivo de eventos de som é carregado
na memória RAM. O parâmetro definido em pszSound
deve apontar para uma imagem de som na memória. |
SND_NODEFAULT |
Nenhum som padrão é executado.
Se o som não puder ser encontrado, PlaySound retorna
sileciosamente sem executar som algum. |
SND_NOSTOP |
O som definido cederá lugar para
outro som que já está executando. Se o som
não puder ser executado porque o recurso necessário
para geral tal som está ocupado executando outro
som, a função retornará imediatamente
com o valor FALSE sem executar o som desejado. Se este
flag não for definido, a função PlaySound
tentará parar o som atual, de forma a liberar o
dispositivo para que o novo som seja executado. |
SND_NOWAIT |
Se o driver estiver ocupado, a função
retorna imediatamente sem executar o som. |
SND_PURGE |
Todos os sons devem ser interrompidos.
Se pszSound não for nil (Delphi) ou NULL (C++),
todas as instâncias do som definido serão
interrompidos. Se pszSound for nil (Delphi) ou NULL (C++),
todos os sons que estarão sendo executados por
solicitação da tarefa atual serão
interrompidos. Você deve também defininir
a referência de instância para parar os eventos
SND_RESOURCE |
SND_RESOURCE |
O parâmetro pszSound é um
identificador de recurso; hmod deve identificar a instância
que contém o recurso. |
SND_SYNC |
A execução do som será
síncrona. A função PlaySound retornará
depois que a execução do som for finalizada. |
Agora que vimos o protótipo da função PlaySound,
vamos rolar o arquivo MMSystem.pas e encontrar sua definição.
Veja:
function PlaySound;
external mmsyst name 'PlaySoundA';
Aqui podemos ver que a função PlaySound simplesmente
efetua uma chamada à função PlaySoundA
definida na winmm.dll. Como descobrimos isso? Basta verificar
o valor da constante mmsyst no arquivo MMSystem.pas:
mmsyst = 'winmm.dll';
E, como a função PlaySoundA está definida
em uma DLL do sistema, nossa análise acaba por aqui.
Mas não sem antes fornecer uma lista dos sons disponíveis:
SystemDefault
SystemAsterisk
SystemExclamation
SystemExit
SystemHand
SystemQuestion
SystemStart
Experimente trocar "SystemStart" por "SystemAsterisk"
e veja o resultado. Estranho como essa lista não está
disponível nos arquivos de ajuda do Win32. Um ponto a
menos para a Microsoft. |
Códigos-fonte 
Bancos de Dados
Usuários On-Line
Executando os sons do sistema
Veja dicas, truques e anotações de 
