unitmain.pas

来自「参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP」· PAS 代码 · 共 125 行

unit UnitMain;

interface

uses
  Windows, ShellAPI, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, XPMan, ScktComp, ComCtrls, Buttons, StdCtrls, ImgList, jpeg,
  Menus,  IdThreadMgr, IdThreadMgrDefault, IdAntiFreezeBase,
  IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPServer,  UnitFormControl,
  UnitVariables, UnitFormNotifica, AppEvnts,untTQQWry, ToolWin, SkinCtrls,
  SkinData, DynamicSkinForm, Mask, SkinBoxCtrls, IdTCPConnection,winsock2,DESCrypt,
  IdTCPClient,upip, IdHTTP,gifimage, IdThreadMgrPool;

const
  WM_POP_MESSAGE = WM_USER + 1;  //Mensaje usado para las notificaciones
  WM_ICONTRAY    = WM_USER + 2;  //Mensaje usado para el icono en el system tray

type
  TFormMain = class(TForm)
    StatusBar: TStatusBar;
    XPManifest: TXPManifest;
    ImageList: TImageList;
    ServerSocket: TIdTCPServer;
    IdAntiFreeze1: TIdAntiFreeze;
    PopupMenuTray: TPopupMenu;
    MostrarOcultar1: TMenuItem;
    N2: TMenuItem;
    Escuchar1: TMenuItem;
    Salir1: TMenuItem;
    N3: TMenuItem;
    wwwindetectablesnet1: TMenuItem;
    NotificacinestiloMSN1: TMenuItem;
    Gongjutool: TspSkinPanel;
    toolbutton4: TspSkinButton;
    ToolButton9: TspSkinButton;
    ToolButton3: TspSkinButton;
    toolButton2: TspSkinButton;
    toolButton1: TspSkinButton;
    spDynamicSkinForm1: TspDynamicSkinForm;
    spSkinData1: TspSkinData;
    spCompressedStoredSkin1: TspCompressedStoredSkin;
    Memo1: TspSkinMemo;
    spSkinPanel3: TspSkinPanel;
    Label23: TspSkinStdLabel;
    Label24: TspSkinStdLabel;
    Button44: TspSkinButton;
    Button33: TspSkinButton;
    spSkinButton10: TspSkinButton;
    exp: TspSkinExPanel;
    filter1: TspSkinComboBox;
    filter: TspSkinButton;
    RadioBox8: TspSkinCheckRadioBox;
    CqButton41: TspSkinButton;
    GjButton40: TspSkinButton;
    XzButton42: TspSkinButton;
    ListViewConexiones: TspSkinListView;
    vertical: TspSkinScrollBar;
    horizon: TspSkinScrollBar;
    IdHTTP1: TIdHTTP;
    spSkinButton1: TspSkinButton;
    spSkinButton2: TspSkinButton;
    Image2: TImage;
    wwwEdit: TEdit;
    downedit: TEdit;
    include: TEdit;
    PopupMenuConexiones: TPopupMenu;
    Abrir1: TMenuItem;
    N1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    GIF1: TMenuItem;
    N8: TMenuItem;
    IdThreadMgrPool1: TIdThreadMgrPool;

    procedure ListViewConexionesContextPopup(Sender: TObject;
      MousePos: TPoint; var Handled: Boolean);
    procedure Abrir1Click(Sender: TObject);
    procedure BtnOpcionesClick(Sender: TObject);
      procedure Cambiarnombre1Click(Sender: TObject);
    procedure Ping1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnConfigServerClick(Sender: TObject);
    procedure ServerSocketConnect(AThread: TIdPeerThread);
    procedure ServerSocketExecute(AThread: TIdPeerThread);
    procedure ServerSocketDisconnect(AThread: TIdPeerThread);
    procedure ListViewConexionesColumnClick(Sender: TObject;
      Column: TListColumn);
    procedure ListViewConexionesCompare(Sender: TObject; Item1,
      Item2: TListItem; Data: Integer; var Compare: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure MostrarOcultar1Click(Sender: TObject);
    procedure Salir1Click(Sender: TObject);
    procedure NotificacinestiloMSN1Click(Sender: TObject);
    procedure PopupMenuTrayPopup(Sender: TObject);
//    procedure wwwindetectablesnet1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure toolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure expChangeRollState(Sender: TObject);
    procedure toolButton1Click(Sender: TObject);
    procedure CqButton41Click(Sender: TObject);
    procedure GjButton40Click(Sender: TObject);
    procedure XzButton42Click(Sender: TObject);
    procedure filterClick(Sender: TObject);
    procedure RadioBox8Click(Sender: TObject);
    procedure Button44Click(Sender: TObject);
    procedure spSkinButton10Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);

    procedure GIF1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);


  private
    ColumnaOrdenada, Columna: Integer;  //Para saber por que columna est