شناسایی ورژن flash player و media player

دنبال یک راه برای شناسایی ورژن دو نرم افزار ذکر شده بر روی سیستم کاربر هستم تا بر مبنای اون تنطیمات خاصی رو اعمال کنم.
اگر ممکنه کمکم کنید.

دوست عزیز این برای فلش پلایر هست از روی کد من می تونید برای مدیاپلایر هم بنویسید ...

function getFileVersion(_file:String):String;

var

  VerInfoSize: DWORD;

  VerInfo: Pointer;

  VerValueSize: DWORD;

  VerValue: PVSFixedFileInfo;

  Dummy: DWORD;

begin

  VerInfoSize := GetFileVersionInfoSize(PChar(_file), Dummy);

  GetMem(VerInfo, VerInfoSize);

  GetFileVersionInfo(PChar(_file), 0, VerInfoSize, VerInfo);

  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);

  with VerValue^ do

  begin

    Result := IntToStr(dwFileVersionMS shr 16);

    Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);

    Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);

    Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);

  end;

  FreeMem(VerInfo, VerInfoSize);

end;



function getFlashPlayerVersion:String;

var

  ocxpath,tmp:String;

begin

  ocxpath := ReadRegStr(HKEY_CLASSES_ROOT,'CLSID\{1171A62F-05D2-11D1-83FC-00A0C9089C5A}\InprocServer32','');

  if FileExists(ocxpath) then

    tmp := GetFileVersion(ocxpath)

  else

    tmp := '0000Error0000';

  Result := tmp;

end;

یا حق !!!

متشکرم.
عالی بود.