Зарегистрировать или удалить OCX, ActiveX Delphi , Технологии , ActiveX
Зарегистрировать или удалить OCX, ActiveX
Приходит жена программиста с работы, а муж весь расстроенный.
- Миша, что случилось?
- Мама умерла... да погоди радоваться, не моя - у компа..
{1.}
type
TDllRegisterServer = function : HResult; stdcall ;
function RegisterOCX(FileName: string ): Boolean;
var
OCXHand: THandle;
RegFunc: TDllRegisterServer;
begin
OCXHand := LoadLibrary(PChar(FileName));
RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer');
if @RegFunc <> nil then
Result := RegFunc = S_OK
else
Result := False ;
FreeLibrary(OCXHand);
end ;
function UnRegisterOCX(FileName: string ): Boolean;
var
OCXHand: THandle;
RegFunc: TDllRegisterServer;
begin
OCXHand := LoadLibrary(PChar(FileName));
RegFunc := GetProcAddress(OCXHand, 'DllUnregisterServer');
if @RegFunc <> nil then
Result := RegFunc = S_OK
else
Result := False ;
FreeLibrary(OCXHand);
end ;
{**********}
{2.}
function RegisterServer(const aDllFileName: string ; aRegister: Boolean): Boolean;
type
TRegProc = function : HResult;
stdcall ;
const
cRegFuncNameArr: array [Boolean] of PChar =
('DllUnregisterServer', 'DllRegisterServer');
var
vLibHandle: THandle;
vRegProc: TRegProc;
begin
Result := False ;
vLibHandle := LoadLibrary(PChar(aDllFileName));
if vLibHandle = 0 then Exit;
@vRegProc := GetProcAddress(vLibHandle, cRegFuncNameArr[aRegister]);
if @vRegProc <> nil then
Result := vRegProc = S_OK;
FreeLibrary(vLibHandle);
end ;
Статья Зарегистрировать или удалить OCX, ActiveX раздела Технологии ActiveX может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы :: 2010-09-17 17:33:01 :: re:Зарегистрировать или удалить OCX, ActiveX пользователь: Алексей .
Как удалить ActiveX
:: 2010-09-20 15:58:16 :: re:Зарегистрировать или удалить OCX, ActiveX пользователь: kan .
Используй function UnRegisterOCX
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
:: Главная :: ActiveX ::