Category: ActiveX
Title: Register a OCX File
Date added: 15.03.2006
Hits: 8454
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;