Minggu, 14 September 2008

MEREGISTER SEBUAH OCX DENGAN DELPHI

Ini adalah program sederhana yang meregister sebuah ocx dalam Delphi. Sourcenya adalah

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);

Tidak ada komentar: