新建一個(gè)Delphi應(yīng)用程序，然后在窗口中把組件欄ActiveX項(xiàng)中的RealPlayer組件拉入窗口中，命名為RealAudio1，出現(xiàn)一個(gè)簡(jiǎn)化的RealPlayer界面。但它只有控制界面，沒(méi)有視頻圖像界面。這不要緊，在RealPlayer組件的Controls屬性中加入“ImageWindow”，然后點(diǎn)擊下面的窗口，視頻圖像開(kāi)始出現(xiàn)，在“ImageWindow”后接著添加“ControlPanel”屬性值（用逗號(hào)分開(kāi)）。這樣控制界面出現(xiàn)，還可以在后面繼續(xù)添加“Statuabar”值，出現(xiàn)狀態(tài)條。  

　　將RealPlayer組件拉動(dòng)到適當(dāng)大小，在窗口中添加一命令按鈕并命名為Play。然后在按鈕的單擊事件中添加以下代碼：  

　　procedure TForm1.Button1Click(Sender: TObject);  

　　begin  

　　RealAudio1.source=' c:\A.rm' ; //播放的電影源。  

　　RealAudio1.doplay; //開(kāi)始播放電影  

　　end;  
新建一個(gè)Delphi應(yīng)用程序，然后在窗口中把組件欄ActiveX項(xiàng)中的RealPlayer組件拉入窗口中，命名為RealAudio1，出現(xiàn)一個(gè)簡(jiǎn)化的RealPlayer界面。但它只有控制界面，沒(méi)有視頻圖像界面。這不要緊，在RealPlayer組件的Controls屬性中加入“ImageWindow”，然后點(diǎn)擊下面的窗口，視頻圖像開(kāi)始出現(xiàn)，在“ImageWindow”后接著添加“ControlPanel”屬性值（用逗號(hào)分開(kāi)）。這樣控制界面出現(xiàn)，還可以在后面繼續(xù)添加“Statuabar”值，出現(xiàn)狀態(tài)條。  

　　將RealPlayer組件拉動(dòng)到適當(dāng)大小，在窗口中添加一命令按鈕并命名為Play。然后在按鈕的單擊事件中添加以下代碼：  

　　procedure TForm1.Button1Click(Sender: TObject);  

　　begin  

　　RealAudio1.source=' c:\A.rm' ; //播放的電影源。  

　　RealAudio1.doplay; //開(kāi)始播放電影  

　　end;  
它還擁有許多屬性和方法，諸位大俠可以自由發(fā)揮想像力，設(shè)計(jì)一個(gè)更加完善的播放器！