Ini adalah program sederhana yang meregister sebuah ocx dalam
uses
OLECtl;
var
OCXHand: THandle;
RegFunc: TDllRegisterServer;
begin
OCXHand := LoadLibrary ('C:\Windows\System\custom.ocx');
RegFunc:= GetProcAddress (OCXHand, 'DllRegisterServer');
if RegFunc <> 0 then
ShowMessage('Error!');
FreeLibrary (OCXHand);
end;
// secara mudah kamu dapat meregister file ocx kamu dengan cara berikut :
WinExec(PChar('regsvr32 /s custom.ocx'),SW_HIDE);