Delphi dicas

Como tocar som sons wav

{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.

por : Kasimeras Dos Santos