用Delphi 3.0編制MP3音樂點歌臺

Delphi 3.0是一個非常優秀的軟件，利用它可很快地制作出一個簡單的MP3音樂點歌臺。
　　原理：制作一個MP3播放程序(本文以Winplay3為例)的外殼，建立中文歌曲名與MP3文件的關聯，從而實現中文歌名的“點歌”。
　　步驟：
　　一、新建一個文件
　　創建一個新的工程(New Project)和空白窗體(Form1)，將Form1的Caption屬性改為“我的點歌臺”，在Form1中加入兩個Comobobox構件，一個用來顯示歌曲所在的專輯，將其Name屬性改為zj，一個用來顯示中文歌曲名稱，將其Name屬性改為Gq，在各自的上方分別加入一個Label構件，將其Caption屬性改為“專輯選擇”和“歌曲選擇”，再加入兩個Bitbotton構件，將其Caption屬性分別設定為“播放”和“退出”。
　　二、觀察裝有MP3文件的光盤的目錄特點
　　一般的目錄都很有規律，如以筆者的一張光盤為例，全盤共分12張專輯，其子目錄分別為：c01、c02……c12，分別建立名為c01�眛xt、c02�眛xt……c12�眛xt的文本文件，按順序輸入相應專輯下的中文歌曲名稱，注意一個歌曲名占一行，并將其放入當前目錄。在Object inspector中，選擇zj，雙擊其Lines屬性，然后依次輸入專輯的名稱，注意一個專輯名稱占據一行；選擇Gq，雙擊其Lines屬性，刪除其默認內容。
　　三、編寫程序
　　在unit1�眕as的Use語句加入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為光驅的盤符，據實際情況而定}
　　end;
　　filename:=inttostr(zj�眎temindex)＋ ′�眛xt′;
　　gq�眎tems�眑oadfromfile (filename);
　　gq�眛ext:=gq�盜tems�眘trings [0];
　　end;
　　{雙擊Caption屬性為“播放”的按鈕，加入以下內容}
　　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表示為后臺播放，需根據實際情況靈活確定。}
　　end;
　　{雙擊Caption屬性為“關閉”的按鈕，輸入以下內容}
　　procedure TForm1�盉utton1Click(Sender:TObject);
　　begin
　　form1�眂lose;
　　end;
　　四、編譯運行
　　單擊Run圖標，程序被編譯并運行。此時，單擊“專輯選擇”下拉框，即會出現各個專輯名稱供你選擇。同時，在“歌曲選擇”中也會出現專輯中所有歌曲的中文名稱，選擇其一后，單擊“播放”按鈕，所點歌曲便被播放。這樣，一個簡單的“點歌臺”就制作成功了。