2009-07-17 12 views

Respuesta

-3
char *mp3FilePath = ... ; 
char *workingDirPath = ... ; 
ShellExecute(hwnd, "open", mp3FilePath, NULL, workingDirPath, SW_SHOWNORMAL); 
+1

Dijo 'sin aplicaciones asociadas' ... – Martijn

2

Utilice el enlace de Shoban para saber cómo reproducir el sonido.

Aquí es cómo controlar el volumen del sonido para los dispositivos:

uses MMSystem; 

type 
    TVolumeRec = record 
    case Integer of 
     0: (LongVolume: Longint) ; 
     1: (LeftVolume, RightVolume : Word) ; 
    end; 

const DeviceIndex=5 
     {0:Wave 
     1:MIDI 
     2:CDAudio 
     3:Line-In 
     4:Microphone 
     5:Master 
     6:PC-loudspeaker} 

procedure SetVolume(aVolume:Byte) ; 
var 
    Vol: TVolumeRec; 
begin 
    Vol.LeftVolume := aVolume shl 8; 
    Vol.RightVolume:= Vol.LeftVolume; 
    auxSetVolume(UINT(DeviceIndex), Vol.LongVolume) ; 
end; 

function GetVolume:Cardinal; 
var 
    Vol: TVolumeRec; 
begin 
    AuxGetVolume(UINT(DeviceIndex),@Vol.LongVolume) ; 
    Result:=(Vol.LeftVolume + Vol.RightVolume) shr 9; 
end; 
2

Si esto es para uso no comercial, las BASS bibliotecas son gratuitos y le dan el control que está buscando.

Hay videos tutoriales gratuitos en 3DBuzz, uno de los cuales es la creación de su propio reproductor de MP3. Están en la lista de Categoría de video en la página principal.

0

Sólo tiene que utilizar las API (MM de toneladas de muestras en MSDN y Google)

+0

MM? que API es eso? – Jlouro

1

Tener un vistazo a este artículo: Your first MP3 Delphi player. Utiliza TMediaPlayer para poder reproducir archivos mp3. No es exactamente lo que quieres, pero es un muy buen punto de partida.

Cuestiones relacionadas