...register a OCX File?

Author: --

Category: Objects/ActiveX

uses
  
OLECtl;

var
  
OCXHandle: THandle;
  RegFunc: TDllRegisterServer;
begin
  
OCXHandle := LoadLibrary ('C:\Windows\System\custom.ocx');
  RegFunc := GetProcAddress (OCXHandle, 'DllRegisterServer');
  if RegFunc <> 0 then
    
ShowMessage('Error!');
  FreeLibrary (OCXHandle);
end;


{ Or you may easily register your custom ocx file with
 the following line:

  Oder man kann mit der folgenden Zeile seine eigenen ocx Dateien auf
 einfache Weise registrieren:
}

WinExec(PChar('regsvr32 /s custom.ocx'), SW_HIDE);

 

printed from
www.swissdelphicenter.ch
developers knowledge base