⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 aproreg.pas

📁 Async Professional 4.04
💻 PAS
字号:
{*********************************************************}
{*                   APROREG.PAS 4.04                    *}
{*      Copyright (C) TurboPower Software 1996-2002      *}
{*                 All rights reserved.                  *}
{*********************************************************}

{Global defines potentially affecting this unit}
{$I AWDEFINE.INC}

{Options required for this unit}
{$G+,X+,F+}

unit APROReg;

interface

uses
{$IFDEF Delphi6}
  DesignIntf,
  DesignEditors;
{$ELSE}
  DsgnIntf;
{$ENDIF}

{ Constant declarations for IDE palette tab names }

const
  APROTabName     = 'APRO';
  APROFaxTabName  = 'APRO Fax';
  APROTelephonyTabName = 'APRO Telephony';
  {$IFDEF InstallNewStateComponents}
  APROStateTabName     = 'APRO State Machine';                           {!!.04}
  {$ENDIF}

procedure Register;

implementation

{$R APROREG.DCR}

uses
  { RTL/VCL Units }
  Classes, SysUtils, Windows,

  { Standard Units }
  AdPort,      {TApdComPort}
  AdProtcl,    {TApdProtocol}
  AdPStat,     {TApdProtocolStatus}
  AdStatLt,    {TApdSLController, TApdStatusLight}
  AdWnPort,    {TApdWinsockPort}
  AdSelCom,    {port selection dialog}
  AdPacket,    {TApdDataPacket}
  AdPropEd,    {design-time property editors}
  AdPager,     {TApdTapPager, TApdSNPPPager, TApdSMSPager}
  {$IFDEF InstallNewPager}
  AdPgr,                                                                 {!!.04}
  {$ENDIF}
  AdGSM,       {TApdGSMPhone}  
  AdFtp,       {TApdFTPClient}
  AdScript,    {TApdScript}
  AdTrmEmu,    {TAdVT100Emulator, TAdTTYEmulator}
  AdRas,       {TApdRasDialer}
  AdRStat,     {TApdRasStatus}
  AdMdm,       {TAdModem}

  {State Machine Units}
  AdStMach,    {TApdStateMachine, TApdState}
  {$IFDEF InstallNewStateComponents}
  AdStDS,      {Additional data sources}                                 {!!.04}
  AdStSt,      {Additional States}                                       {!!.04}
  AdStProt,    {Protocol States}                                         {!!.04}
  AdStFax,     {Fax States}                                              {!!.04}
  AdStSapi,    {SAPI States}                                             {!!.04}
  {$ENDIF}

  { Fax Units }
  AdFaxCvt,    {TApdFaxConverter, TApdFaxUnpacker}
  AdFView,     {TApdFaxViewer}
  AdFax,       {TApdSendFax, TApdReceiveFax}
  AdFStat,     {TApdFaxStatus}
  AdFaxPrn,    {TApdFaxPrinter}
  AdFPStat,    {TApdFaxPrinterStatus}
  AdFaxCtl,    {TApdFaxDriverInterface}
  AdFaxSrv,    {TApdFaxServer, TApdFaxServerManager, TApdFaxClient}

  { Telephony Units }
  AdTapi,      {TApdTapiDevice}
  AdTStat,     {TApdTapiStatus}
  AdPEditT,    {select device dialog}
  AdSapiEn,    {TApdSapiEngine}
  AdSapiPh,    {TApdSapiPhone}
  AdVoIP;      {IP Telephony components}


procedure Register;
begin
  { Register standard components }
  RegisterComponents(APROTabName,
                     [TApdComPort,
                      TApdWinsockPort,
                      TApdRasDialer,
                      TApdRasStatus,
                      TApdFtpClient,
                      TApdFtpLog,
                      TApdDataPacket,
                      TApdScript,
                      {$IFNDEF InstallNewStateComponents}               
                      TApdStateMachine,                                 
                      TApdState,                                        
                      {$ENDIF}                                          
                      TAdModem,
                      TAdModemStatus,
                      TApdSLController,
                      TApdStatusLight,
                      TApdProtocol,
                      TApdProtocolLog,
                      TApdProtocolStatus,
                      {$IFDEF InstallNewPager}
                      TApdPager,
                      {$ENDIF}
                      TApdTAPPager,
                      TApdSNPPPager,
                      TApdGSMPhone,
                      TApdPagerLog,
                      TAdTerminal,
                      TAdTTYEmulator,
                      TAdVT100Emulator]);

  { Register Telephony components }
  RegisterComponents(APROTelephonyTabName,
                     [TApdTapiDevice,
                      TApdTapiStatus,
                      TApdTapiLog,
                      TApdSapiEngine,
                      TApdSapiPhone,
                      TApdVoIP]);

  { Register Fax Components }
  RegisterComponents(APROFaxTabName,
                     [TApdFaxConverter,
                      TApdFaxUnpacker,
                      TApdFaxViewer,
                      TApdReceiveFax,
                      TApdSendFax,
                      TApdFaxStatus,
                      TApdFaxLog,
                      TApdFaxPrinter,
                      TApdFaxPrinterStatus,
                      TApdFaxPrinterLog,
                      TApdFaxDriverInterface,
                      TApdFaxServer,
                      TApdFaxServerManager,
                      TApdFaxClient]);

  { Register State Machine Components }                                  {!!.04}
  {$IFDEF InstallNewStateComponents}                                     {!!.04}
  RegisterComponents (APROStateTabName,                                  {!!.04}
                      [TApdStateMachine,                                 {!!.04}
                       TApdStateComPortSource,                           {!!.04}
                       TApdStateGenericSource,                           {!!.04}
                       TApdState,                                        {!!.04}
                       TApdActionState,                                  {!!.04}
                       TApdSendFileState,                                {!!.04}
                       TApdReceiveFileState,                             {!!.04}
                       TApdSendFaxState,                                 {!!.04}
                       TApdReceiveFaxState,                              {!!.04}
                       TApdSapiSpeakState]);                             {!!.04}
  {$ENDIF}                                                               {!!.04}

end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -