Delphi 3.0是一個(gè)非常優(yōu)秀的軟件，利用它可很快地制作出一個(gè)簡(jiǎn)單的MP3音樂(lè)點(diǎn)歌臺(tái)。
　　原理：制作一個(gè)MP3播放程序(本文以Winplay3為例)的外殼，建立中文歌曲名與MP3文件的關(guān)聯(lián)，從而實(shí)現(xiàn)中文歌名的“點(diǎn)歌”。
　　步驟：
　　一、新建一個(gè)文件
　　創(chuàng)建一個(gè)新的工程(New Project)和空白窗體(Form1)，將Form1的Caption屬性改為“我的點(diǎn)歌臺(tái)”，在Form1中加入兩個(gè)Comobobox構(gòu)件，一個(gè)用來(lái)顯示歌曲所在的專輯，將其Name屬性改為zj，一個(gè)用來(lái)顯示中文歌曲名稱，將其Name屬性改為Gq，在各自的上方分別加入一個(gè)Label構(gòu)件，將其Caption屬性改為“專輯選擇”和“歌曲選擇”，再加入兩個(gè)Bitbotton構(gòu)件，將其Caption屬性分別設(shè)定為“播放”和“退出”。
　　二、觀察裝有MP3文件的光盤的目錄特點(diǎn)
　　一般的目錄都很有規(guī)律，如以筆者的一張光盤為例，全盤共分12張專輯，其子目錄分別為：c01、c02……c12，分別建立名為c01�眛xt、c02�眛xt……c12�眛xt的文本文件，按順序輸入相應(yīng)專輯下的中文歌曲名稱，注意一個(gè)歌曲名占一行，并將其放入當(dāng)前目錄。在Object inspector中，選擇zj，雙擊其Lines屬性，然后依次輸入專輯的名稱，注意一個(gè)專輯名稱占據(jù)一行；選擇Gq，雙擊其Lines屬性，刪除其默認(rèn)內(nèi)容。
　　三、編寫程序
　　在unit1�眕as的Use語(yǔ)句加入Fmxutils，在Var部分加入一行：
　　var filename:string,path;{filename為MP3文件的文件名，path為其路徑}
　　然后在Form1窗體中，雙擊zj，加入以下程序：
　　procedure TForm1�眤jChange(Sender:TObject);
　　begin
　　case zj�眎temindex of
　　0�豹�8,10�豹�20:path:=′e:\c0′＋inttostr(zj�眎temindex＋1);
　　9:path:=′e:\c′＋inttostr　　　(zj�眎temindex＋1);
　　{e為光驅(qū)的盤符，據(jù)實(shí)際情況而定}
　　end;
　　filename:=inttostr(zj�眎temindex)＋ ′�眛xt′;
　　gq�眎tems�眑oadfromfile (filename);
　　gq�眛ext:=gq�盜tems�眘trings [0];
　　end;
　　{雙擊Caption屬性為“播放”的按鈕，加入以下內(nèi)容}
　　procedure TForm1�盉utton1Click(Sender:TObject);
　　begin
　　case gq�眎temindex of
　　0�豹�8,10�豹�20:filename:=path＋′\′＋′0′＋inttostr(gq�眎temindex＋1)＋ ′�眒p3′;
　　9:filename:=path＋′\10�眒p3′;
　　else
　　filename:=path＋′\01�眒p3′;
　　end;
　　executefile(‘winplay3�眅xe’,mpname,′c:\winplay3′,sw_hide);
　　{winplay3�眅xe為mp3播放程序的文件名，c:\winplay為其路徑,sw_hide表示為后臺(tái)播放，需根據(jù)實(shí)際情況靈活確定。}
　　end;
　　{雙擊Caption屬性為“關(guān)閉”的按鈕，輸入以下內(nèi)容}
　　procedure TForm1�盉utton1Click(Sender:TObject);
　　begin
　　form1�眂lose;
　　end;
　　四、編譯運(yùn)行
　　單擊Run圖標(biāo)，程序被編譯并運(yùn)行。此時(shí)，單擊“專輯選擇”下拉框，即會(huì)出現(xiàn)各個(gè)專輯名稱供你選擇。同時(shí)，在“歌曲選擇”中也會(huì)出現(xiàn)專輯中所有歌曲的中文名稱，選擇其一后，單擊“播放”按鈕，所點(diǎn)歌曲便被播放。這樣，一個(gè)簡(jiǎn)單的“點(diǎn)歌臺(tái)”就制作成功了。