方法1：
comobjを使用しています。
手順TForm1.Button1Click（送信者：TObjectを）;
ました
V：変異体;
ベギン
V：= CreateOleObject（ 'ShockwaveFlash.ShockwaveFlash'）;
そうでない場合はVarIsNull（V）
次いでshowmessage（ '搭載制御FLASH'）
他showmessage（「「コントロールがFLASHにインストールされていません」）;
終わり;
方法2：
ActiveXを使用しています。
ました
AGUID：TGUID。
その後、成功しなかった場合（CLSIDFromProgID（ 'ShockwaveFlash.ShockwaveFlash'、AGUID））
//インストールされていません
