ActiveX - Installierte Version feststellen.

[sx2008]

Registry auslesen ist doch Pfui

Delphi-Quellcode:

function CoClassExists(const ClassID:TGuid):Boolean;
var
   hr : HRESULT;
   progid : PWideChar;
begin
   hr := ProgIDFromCLSID(ClassID, progid);
   Result := Succeeded(hr);
end;

const 
  myclass:TGUID = '{68385E69-C276-4EC1-ACE0-2EA6C831B127}';

begin
  if not CoClassExists(myclass) then
     // ActiveX Klasse ist nicht installiert