Using this kind of versionToString? I think its Flash11.ocx issue, maybe TFlashPlayer is not certified run on Flash11 activex plugin.
Flash version: 11.9.188.169, ocx file is 11.7.700.169
Flash version: 11.12.132.117, ocx file is 11.9.900.117
Flash version: 10.3.183.10, ocx file is 10.3.183.10
Code: Select all
function TFlashFrame.getFlashVersion(): String;
var
dwInstalledFlashVersion: DWORD;
begin
Result := '';
//dwInstalledFlashVersion := FlashPlayerControl.GetInstalledFlashVersion;
dwInstalledFlashVersion := FlashPlayerControl.GetUsingFlashVersion;
if dwInstalledFlashVersion = 0 then Exit;
Result := Format(
'Flash version: %d.%d.%d.%d',
[
HIBYTE(HIWORD(dwInstalledFlashVersion)),
LOBYTE(HIWORD(dwInstalledFlashVersion)),
HIBYTE(LOWORD(dwInstalledFlashVersion)),
LOBYTE(LOWORD(dwInstalledFlashVersion))
]
);
end;