如何建立一个MTS（COM +）的软件包

 

;
; ISX 3.0.4-beta
;

[Setup]
AppName=My Com+ dll
AppVerName=My Com+ dll 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.mycompany.com
AppSupportURL=http://www.mycompany.com
AppUpdatesURL=http://www.mycompany.com
DefaultDirName={pf}\My Com+
DisableProgramGroupPage=True
Uninstallable=false
DisableStartupPrompt=true

[Tasks]
Name: RegisterComPackage; Description: Register Com+ package in Windows Component Services

[Files]
Source: MyCom+.dll; DestDir: {app}; CopyMode: alwaysoverwrite
Source: ComAdm.dll; CopyMode: dontcopy

[Code]

function AddComPackages(PackageName, PackageDir, Packages : PChar): Integer;
external 'AddComPackages@files:ComAdm.dll stdcall';

function InitializeSetup(): Boolean;
begin
  { Let Setup run }
  Result := True;
end;

procedure CurPageChanged(CurPage: Integer);
begin
  case CurPage of
    wpFinished :
      begin
        if ShouldProcessEntry('', 'RegisterComPackage') = srYes then
          {
          If you want to register multiple packages, comma seperate them, for example :
          'MyCom+.dll,COM_ADMINISTRATOR.DLL,COM_MAINTENANCE.DLL'
          }
          if AddComPackages('InnoComPackage', ExpandConstant('{app}'), 'MyCom+.dll') = -1 then
            MsgBox('Error registering Com+ package(s)!', mbError, MB_OK)
          else MsgBox('Succesfull registered Com+ package(s)', mbInformation, MB_OK);

      end;
  end;
end;