Registrar un OCX en Windows  

Enviado Por: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Fecha: 02/10/99

Truco accedido 83 veces

 


Podemos hacerlo ejecutando el RegSvr32.Exe o bien con este código en nuestra aplicación:


 procedure TForm1.Button1Click(Sender: TObject);

 type
   TDLLRegisterServer   = function: HResult stdcall;
 var
   MangoOCX  : THandle;
   Registrar : TDllRegisterServer;
 begin
   {Cargamos el OCX}
   {Load the OCX}
   MangoOCX:= LoadLibrary('c:\windows\system\html.ocx');
   {Hallamos la direccion de la funcion para registrar el OCX}
   {Get the address to register the OCX}
   Registrar:= GetProcAddress(MangoOCX, 'DllRegisterServer');
   {Llamamos a la función}
   {Call to the function}
   if Registrar <> 0 then ShowMessage('Error');
   {Liberamos el OCX}
   {Free the OCX}
   FreeLibrary(MangoOCX);
 end;