uregister.pas

Delphi高级开发指南是开发程序的好帮手

unit uRegister;

interface

uses
  Windows, ActiveX, ComServ;

function DllRegisterServer: HResult;
function DllUnregisterServer: HResult;

implementation

function DllRegisterServer: HResult;
begin
  Result := S_OK;
  try
    ComServer.UpdateRegistry(True);
    { Insert custom registration code here }
  except
    Result := E_FAIL;
  end;
end;

function DllUnregisterServer: HResult;
begin
  Result := S_OK;
  try
    { Insert custom unregistration code here }
    ComServer.UpdateRegistry(False);
  except
    Result := E_FAIL;
  end;
end;

end.