AdminConnect decl sample

const  
  CT_VPN = 0;
  CT_LAN = 1;
  CT_WAN = 2;

  AAPath = 'd:\Dropbox\addons\AA.exe';
  TempFile: string = 'input.qry';

type
  CellInfo = record
  public
    CTime, CDate, Alias, Available, Ip, WinName, IpInSelectedRow: string;
  end;

type
  WinInfo = record
    WindowName: string;
    Description: Cardinal;
  end;

type
  THTTPRequest = class(TThread)
  private
    fRequestText : string;
    fOriginalAnsw: Boolean;
  protected
    procedure Execute; override;
    procedure SendRequest;
  public
    property RequestText : string read fRequestText write fRequestText;
    property OriginalAnws: Boolean read fOriginalAnsw write fOriginalAnsw;
  end;

type
  TPCRename = class(TThread)
  protected
    procedure Execute; override;
  end;

type
  TFormsUpdate = class(TThread)
  protected
    procedure Execute; override;
  end;

type
  TRepeatExp = class(TThread)
  protected
    procedure Execute; override;
  end;

type
  TExecuteSQLFromFile = class(TThread)
  protected
    procedure Execute; override;
  end;

type
  TFillSumms = class(TThread)
  protected
    procedure Execute; override;
  end;

type
  TVERCHECKER = class(TThread)
  private
    fManualCheck: Boolean;
  protected
    procedure Execute; override;
    procedure NoUpdNeedMessage;
  public
    property ManualCheck: Boolean read fManualCheck write fManualCheck;
  end;

type
  TThreadTicketsCheck = class(TThread)
  private
    fTType: SmallInt;
    newId : Variant;

  protected
    procedure Execute; override;
    function HasSomeNewTickets: Word;
    procedure SaveId(id: Integer);
    procedure WriteTicketIdToIni;
    procedure Sync;
  public
    property TType: SmallInt read fTType write fTType;
  end;

type
  TCustomCommand = class(TThread)
  private
    fCommand: string;
    fCStream: TStringStream;
  protected
    procedure Execute; override;
  public
    property Command: string read fCommand write fCommand;
    property CStream: TStringStream read fCStream write fCStream;
  end;

type
  TPCNETNAMECHECKER = class(TThread)
  protected
    procedure Execute; override;
  end;

type
  TDialer = class(TThread)
  private
    fPhoneNum  : string;
    fPhoneValue: string;
    fPortName  : string;
  protected
    procedure Execute; override;
    procedure Dial;
  public
    property PhoneNum  : string read fPhoneNum write fPhoneNum;
    property PhoneValue: string read fPhoneValue write fPhoneValue;
    property PortName  : string read fPortName write fPortName;
  end;

type
  TSendStream = class(TThread)
  private
    httpc       : TIDHTTP;
    fCurrentItem: TListItem;
    fPHost      : String;
    fMText      : string;
    SQLResult   : TFSQLResult;
    fSQLComplete: Boolean;

  protected
    procedure Execute; override;
    procedure Send;
    procedure WriteToSQLEventLog;
    property CurrentItem: TListItem read fCurrentItem write fCurrentItem;
    property PHost: String read fPHost write fPHost;
    property MText: string read fMText write fMText;
  public
    property SQLComplete: Boolean read fSQLComplete write fSQLComplete;

  var

    TSS     : TSendStream;
    Transact: TIBTransaction;
  end;

type
  TRAdminStarter = class(TThread)
  private
    fHttpAnsw: string;
  protected
    procedure Execute; override;
  public
    property HttpAnsw: string read fHttpAnsw write fHttpAnsw;
  end;