ThaiPBL.com

ประกาศ External function ก่อนครับ
FUNCTION ULong MciSendString(String lpszCommand,  &
ref String lpszReturnString, &
ULong cchReturn, ULong hwndCallback) &
LIBRARY "winmm.dll" &
ALIAS FOR "mciSendStringA"

ที่นี้ code สำหรับการกำหนด ชื่อเพลงครับ 

String lpszReturnString
string ls_mp3 = "C:TO_CDMUSICNEWENG[01][F]The Piano Love SongsPiano Love Songs - 01 Home (Ac Mix).mp3"
ULong cchReturn, ll_rc

lpszReturnString = Space(100)
ll_rc = MciSendString('close MP3_Device', lpszReturnString,  cchReturn, 0)
ll_rc = MciSendString("open ~"" + ls_mp3 + "~" type MPEGVideo alias MP3_Device", &
lpszReturnString,  cchReturn, 0)

เอาไปแก้ไข ทำ Playlist  กันเองนะครับ ไม่ยาก

สั่งให้เล่นเพลง ดังนี้ครับ
ll_rc = MciSendString("play Mp3_Device", lpszReturnString,  cchReturn, 0)
// ll_rc = 0 Ok!

ถ้าต้องการหยุด ก็นี่ครับ
ll_rc = MciSendString('close MP3_Device', lpszReturnString,  cchReturn, 0)

ลองทำแข่ง Winamp ดูนะครับ  เผื่อจะมี PBamp กะเขาบ้าง

ทั้งหมดนี้ลองกับ pb ok ครับ