Buscar por:

Como tocar som sons wav

Código

{Para reproduzir sons no formato WAV em um programa em Delphi é simples, o usuário deverá 

colocar na clásula Uses o MMSystem. E no corpo do programa o comando:}

SndPlaySound('C:WindowsMediaSom.wav',SND_ASYNC);

//Colocar Funções em uma DLL

//Edite diretamente no DPR, e depois salve como Funcoes.dpr:

Library Funcoes;

Uses SysUtils,WinTypes,WinProcs;

{ Uma função que tira os espaços no início e no final de uma string }

Function Trim(J:String):String; Export; 

Begin

While J[Length(J)]=#32 do Dec(J[0]);

If Length(J)>1 then

While (J[1]=' ') do

Begin

Delete(J,1,1);

If Length(J)<=1 then J:='';

end;

Result:=J;

end;

Exports { Torna visivel para os programas }

Trim;

Begin

End.