Feststellen Auslesen ob ActiveX Control registriert

[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 :-)');