Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Registrar un ActiveX sin utilizar RegSvr32.exe (https://www.clubdelphi.com/foros/showthread.php?t=80621)

dec 01-07-2006 00:02:20

Registrar un ActiveX sin utilizar RegSvr32.exe
 
Registrar un ActiveX sin utilizar RegSvr32.exe

Código Delphi [-]
var
  i     : TCLSID;
  hOCX  : integer;
  pReg  : procedure;
begin
  { Check ocx registration. }
  try
    i := StringToClassID('SoftwareFX.ChartFX.20');
  except
    hOCX := LoadLibrary( 'CFX32.OCX' );
    if (hOCX  >= HINSTANCE_ERROR) then begin
      try
        pReg := GetProcAddress(hOCX,'DllRegisterServer');
        if (@pReg <> nil) then
          pReg  { Call the registration function }
        else
          MessageDlg('Error in registering OCX control.');
      finally
        FreeLibrary(hOCX);
      end;
    end else
      MessageDlg('Error in loading OCX control.', mtError, [mbok],0);
  end;

  Application.Initialize;


La franja horaria es GMT +2. Ahora son las 01:29:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi