ورژن Flash.ocx

[h_mohamadi]

سلام
کسي از دوستان مي داند با چه دستوري مي توان ورژن Flash.ocx نصب شده روي کامپيوتر را متوجه شد

[Answer]

این کد رو من یه جایی توی همین سایت دیدم ولی آدرسش رو نمیدونستم.



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;

[h_mohamadi]

اين دستوري که شما نوشته ايد اگر يک ورژن بالاتر فلش ريجستر شود هم نشان مي دهد؟؟
يعني منظورم اين است که فلش ocx فقط در اين مسير رجيستري که داده شده نصب مي شود؟

[h_mohamadi]

دوستان با تشکر از شما
اما دستوري ورژن فايل فلش ريجستر شده را نشان مي دهد خيلي آنلاين نيست چون من فلشم را در همان مسير ريجستري عوض کردم و فلش پائين تر را نصب کردم اما بعد از ري استارت هم همان ورژن فلش قبلي را به من داد.
منمون مي شوم من را راهنمايي کنيد