Pfad zu registriertem OCX ermitteln

[mikesmurph]

Hallo zusammen,

ich habe sollte den Pfad zu einem registrierten OCX ermitteln (geht glaub ich nur über Registry). Hab aber keinen Plan.
Ich brauche die Pfadangaben um die Version des OCX auszulesen.

Kann mir da jemand weiterhelfen?

Vielen Dank schon mal im Voraus


Michael

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Michael.

Die ActiveX-Controls werden im Registry-Pfad HKCR\TypeLib verwaltet. Du musst für den Zugriff den GUID und die Version kennen:

Delphi-Quellcode:

function GetOcxPath(const guid: TGuid; const version: string): string;
var
  key: string;
begin
  with Registry.TRegistry.Create(KEY_READ) do
  try
    RootKey := HKEY_CLASSES_ROOT;
    key := Format('TypeLib\%s\%s\0\win32', [SysUtils.GuidToString(guid), version]);
    if OpenKey(key, False)
      then Result := ReadString('')
      else Result := '';
  finally
    Free;
  end;
end;

// ShowMessage(GetOcxPath(LIBID_AcroPDFLib, '1.0'));

Freundliche Grüße

[mikesmurph]

Hallo Marabu,

vielen Dank für den Code. Genau das war der Ansatz, den ich brauchte.

Gruß

Michael