Как узнать установлен ли activeX на машине?

Previous  Top  Next

    
 

 

 

Code:

{ ... }

var

strOLE: string;

begin

strOLE = "YourCOMServer.Application" {your ProgID}

if (CLSIDFromProgID(PWideChar(WideString(strOLE), ClassID) = S_OK) then

   begin

     { ... }

   end;

end;

©Drkb::04348

 

 


Code:

{ ... }

const

cKEY = '\SOFTWARE\Classes\CLSID\%s\InprocServer32'

var

sKey: string;

sComServer: string;

exists: boolean;

Reg: TRegistry;

begin

Reg := TRegistry.Create;

try

   Reg.RootKey := HKEY_LOCAL_MACHINE;

   sKey := format(cKEY, [GuidToString(ClassID)]);

   if Reg.OpenKey(sKey, False) then

   begin

     sComServer := Reg.ReadString('');

     if FileExists(sComServer) then

     begin

       { ... }

     end;

   end;

finally

   Reg.free;

end;

end;

 

©Drkb::04349

Взято с Delphi Knowledge Base: http://www.baltsoft.com/