用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txt、c02txt……c12txt的文本文件，按順序輸入相應專輯下的中文歌曲名稱，注意一個歌曲名占一行，並將其放入當前目錄。在Object inspector中，選擇zj，雙擊其Lines屬性，然後依次輸入專輯的名稱，注意一個專輯名稱占據一行；選擇Gq，雙擊其Lines屬性，刪除其默認內容。
　　三、編寫程序
　　在unit1pas的Use語句加入Fmxutils，在Var部分加入一行：
　　var filename:string,path;{filename為MP3文件的文件名，path為其路徑}
　　然後在Form1窗體中，雙擊zj，加入以下程序：
　　procedure TForm1zjChange(Sender:TObject);
　　begin
　　case zjitemindex of
　　08,1020:path:=′e:\c0′＋inttostr(zjitemindex＋1);
　　9:path:=′e:\c′＋inttostr　　　(zjitemindex＋1);
　　{e為光驅的盤符，據實際情況而定}
　　end;
　　filename:=inttostr(zjitemindex)＋ ′txt′;
　　gqitemsloadfromfile (filename);
　　gqtext:=gqItemsstrings [0];
　　end;
　　{雙擊Caption屬性為“播放”的按鈕，加入以下內容}
　　procedure TForm1Button1Click(Sender:TObject);
　　begin
　　case gqitemindex of
　　08,1020:filename:=path＋′\′＋′0′＋inttostr(gqitemindex＋1)＋ ′mp3′;
　　9:filename:=path＋′\10mp3′;
　　else
　　filename:=path＋′\01mp3′;
　　end;
　　executefile(‘winplay3exe’,mpname,′c:\winplay3′,sw_hide);
　　{winplay3exe為mp3播放程序的文件名，c:\winplay為其路徑,sw_hide表示為後台播放，需根據實際情況靈活確定。}
　　end;
　　{雙擊Caption屬性為“關閉”的按鈕，輸入以下內容}
　　procedure TForm1Button1Click(Sender:TObject);
　　begin
　　form1close;
　　end;
　　四、編譯運行
　　單擊Run圖標，程序被編譯並運行。此時，單擊“專輯選擇”下拉框，即會出現各個專輯名稱供你選擇。同時，在“歌曲選擇”中也會出現專輯中所有歌曲的中文名稱，選擇其一後，單擊“播放”按鈕，所點歌曲便被播放。這樣，一個簡單的“點歌台”就制作成功了。