关于FLASH; 程序中自动安装; 独立安装程序; 播放器 (100分)

三个相关问题. 请有经验的DFW出手.

1. 怎样判断机器中没有安装FLASH的驱动,
2. 能否自建一个FLASH的驱动的安装包, 程序中调用, 这个FLASH的安装包怎么做
3. FLASH的简单播放器示例

在程序里使用一个FLASH控件来播放,这样就不必要求系统安装FLASH播放器的驱动支持

有 这样的 控件 吗?

装过FLASH后,系统里有一个flash的OCX控件,播放时要把这个OCX带上就可以了
或者使用DELPHI的第三方控件,在网上可以找到的

在程序中可直接调用flash的一个可执行程序。
例如：（指定路径，利用ShellExecute打开）
var
path: string;
OpenPath,filepath : string;
begin
.....
path := ExtractFilePath(Application.ExeName);
OpenPath := path + 'flash.exe';
filepath := path + 'xxxxxx.xxx';
ShellExecute(handle, 'open', Pchar(OpenPath), Pchar(filepath), nil,SW_MAXIMIZE)
.....
end;
如果没有装flash，也可以安装：
filepath := path + 'flash.exe';
ShellExecute(handle, 'open', Pchar(filepath), nil,nil, SW_MAXIMIZE)

在程序里使用一个FLASH控件来播放,不必安装FLASH播放器的驱动，在Delphi下安装ActiveX下的ShockwaveFlash控件，只要指定FLASH文件的路径就可以播放Flash了，没有必要这么麻烦啊！