TRealAudio控件问题

Question

我做一个用TRealAudio控件的程序，当其播放MP3时不需要视频，而播放某些RM带图像的文件格式时却要放出视频，我怎么知道某种格式的文件有视频还是没视频。如果没有视频我就不显示视频的画面了。

Answer 1

获得文件扩展名函数
function TForm1.filename(filepath : string): string;
var
  path : PChar;
  temp : string;
  filename : string;
begin
  path := PChar(filepath);
  path := path + Length(filepath)-1;
  temp := '';
  filename := '';
  while path^ <> '\' do
  begin
    temp := temp + path^;
    Dec(path);
  end;
  path := PChar(temp);
  path := path + Length(temp)-1;
  while path^ <> #0 do
  begin
    filename := filename + path^;
    Dec(path);
  end;
  Result := filename;
end;if 扩展名=*.mp3 then
   begin
   .......
   end
else if 扩展名=*.avi then
   begin
   .......
   end
else if........
...............