新建一個Delphi應用程序，然后在窗口中把組件欄ActiveX項中的RealPlayer組件拉入窗口中，命名為RealAudio1，出現一個簡化的RealPlayer界面。但它只有控制界面，沒有視頻圖像界面。這不要緊，在RealPlayer組件的Controls屬性中加入“ImageWindow”，然后點擊下面的窗口，視頻圖像開始出現，在“ImageWindow”后接著添加“ControlPanel”屬性值（用逗號分開）。這樣控制界面出現，還可以在后面繼續添加“Statuabar”值，出現狀態條。  

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

　　procedure TForm1.Button1Click(Sender: TObject);  

　　begin  

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

　　RealAudio1.doplay; //開始播放電影  

　　end;  
新建一個Delphi應用程序，然后在窗口中把組件欄ActiveX項中的RealPlayer組件拉入窗口中，命名為RealAudio1，出現一個簡化的RealPlayer界面。但它只有控制界面，沒有視頻圖像界面。這不要緊，在RealPlayer組件的Controls屬性中加入“ImageWindow”，然后點擊下面的窗口，視頻圖像開始出現，在“ImageWindow”后接著添加“ControlPanel”屬性值（用逗號分開）。這樣控制界面出現，還可以在后面繼續添加“Statuabar”值，出現狀態條。  

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

　　procedure TForm1.Button1Click(Sender: TObject);  

　　begin  

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

　　RealAudio1.doplay; //開始播放電影  

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