Feststellen Auslesen ob ActiveX Control registriert

[DSCHUCH]

Hoi, ich versuche gerade herauszufinden wie ich festellen kann, ob ein ActiveX Control bereits registriert ist. Bei Google findet man zwar viel aber genau ist das Problem. Evtl weiß es ja jemand ad hoc?

Thx, Daniel

[Morphie]

mir fällt da erstmal die -zugegeben unsaubere- Variante ein, versuchen das Control zu erzeugen (CreateOleObject?).
Das ganze in einem Try-Except-Block. Im Except-Fall ist der Rückgabewert halt false, ansonsten true...

edit: alles ungetestet... habe kein Delphi hier

[Bernhard Geyer]

Zitat von Morphie:

mir fällt da erstmal die -zugegeben unsaubere- Variante ein, versuchen das Control zu erzeugen (CreateOleObject?).
Das ganze in einem Try-Except-Block. Im Except-Fall ist der Rückgabewert halt false, ansonsten true...

Ist aber die einzige Lösung um 100% festzustellen ob es nicht nur installiert ist sondern auch funktioniert.
Ansonsten halt die Classs-ID in der Registry suchen.

[Andreas L.]

Folgende Funktion stammt von Luckie:

Delphi-Quellcode:

function ProgIDExists(const ProgID:WideString):Boolean;
var
  tmp : TGUID;
begin
  Result := Succeeded(CLSIDFromProgID(PWideChar(ProgID), tmp));
end; 

// Beispiel:
// Gibt zurück ob das Mozilla ActiveX Objekt installiert ist
if ProgIDExists('Mozilla.Browser.1') then
  ShowMessage('Ist installiert :-)');

[himitsu]

Waber was nimmt man da?
ProgIDExists('Mozilla.Browser.1') , ProgIDExists('Mozilla.Browser.2') , ..., oder doch eher ProgIDExists('Mozilla.Browser') (von der Erstinstallation)

Einiges davon lassen die Deinstallationsprogramme auch gerne zurück, oder das ActiveX ist defekt, oder ...

[p80286]

Dann schau doch in die Registry!

aber im Ernst, zumindestens bei den Office-Produkten verweisen die alle auf einen Punkt, von daher sollte es egal sein.

Gruß
K-H