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);
|
Bewerten Sie diesen Tipp:
|
|
|
