2009-07-17 37 views

Trả lời

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

Ông ấy nói 'không có ứng dụng liên quan' ... – Martijn

2

Sử dụng liên kết Shoban để biết cách phát âm thanh.

Dưới đây là làm thế nào để điều khiển âm lượng âm thanh cho các thiết bị:

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

Nếu đây là dành cho sử dụng phi thương mại, các BASS thư viện đều miễn phí và cung cấp cho bạn kiểm soát bạn đang tìm kiếm.

Có video hướng dẫn miễn phí trên 3DBuzz, một trong số đó là tạo trình phát MP3 của riêng bạn. Họ đang ở trong danh sách Danh mục video trên trang đầu.

0

Chỉ cần sử dụng MM apis (tấn mẫu trên MSDN và google)

+0

MM? API đó là gì? – Jlouro

1

Hãy nhìn vào bài viết này: Your first MP3 Delphi player. Nó sử dụng TMediaPlayer để có thể chơi các tập tin mp3. Không chính xác những gì bạn muốn, nhưng là một điểm khởi đầu rất tốt.

Các vấn đề liên quan