当今网上flash作品很为丰富，但windws自带的flashplayer6.0播放器。说真的实在不能说是太好。只能这么说吧――精简。但我们有时对一个播放器的要求是要它的功能多样。能不能把flashplayer做的和mediaplayer一样多样化呢！这就是我做这款播放器的初衷了。
设计的功能清单如下：
1. 具有播放URL动画的功能;
2. 能够和其它媒体播放器一样能具有拖动播放的功能;
3. 能够支持*.swf文件的拖入播放;
4. 有文件播放列表，供用户选择播放;
5. 能够关联flash文件;
6. 能够实现屏幕截图;
7. 可以实现swf<->exe文件的自由转换（尚未完成）;
这就是我个人的一些想法了。在实际开发过程中，容易实现的是1. 4. 6.等功能。故这几项功能只付源码由各位自己去看了：）
1. 具有播放URL动画的功能;
procedure TForm1.N3Click(Sender: TObject);
//打开url文件
var a:string;
begin
a:=inputbox('打开URL','URL','http://');
if (a='http://') then
begin
statusbar.Panels[0].Text:=' flashplayer ';
end
else
try
shockwaveflash1.Movie:=a;
except
showmessage('不是有效的URL地址');
end;
end;
4. 有文件播放列表，供用户选择播放 (我用的是ListView)
procedure TForm1.N4Click(Sender: TObject);
var
i:integer;
a: Tlistitem;
begin
if opendialog1.Execute
then
begin
for i:=0 to opendialog1.Files.Count-1 do
begin
a := listview1.Items.Add;
a.Caption := ExtractFilename(opendialog1.Files);
end;
end;
end;
end.
//ListView里的双击事件！
Procedure Tform1.ListView1Dblclick(sender:Tobject);
begin
If ListView1.Selected = nil then
Exit;
else
// your code…….
end;
未完待续……………………..
