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

[realman]

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

[Hamid_PaK]

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

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;

یا حق !!!

[realman]

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