mainform.pas

del *.obj del *.dcu del *.~* del *.hpp del *.dcp del *.dpl del *.cesettings del *.log upx sy

    lblClipboards: TLabel;
    edtClipboards: TEdit;
    udClipboards: TUpDown;
    pnlButtons: TPanel;
    imgIcon: TImage;
    btnNew: TButton;
    btnDelete: TButton;
    btnApply: TButton;
    btnClose: TButton;
    opdOpenFile: TOpenDialog;
    FlatGroupBox16: TFlatGroupBox;
    FlatGroupBox17: TFlatGroupBox;
    OpenDialog1: TOpenDialog;
    FlatGroupBox18: TFlatGroupBox;
    Panel11: TPanel;
    ListViewHotKeyList: TListView;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel15: TPanel;
    HotKeyManager1: THotKeyManager;
    FlatSpeedButtonHotKeyListNew: TFlatSpeedButton;
    FlatSpeedButtonHotKeyListSave: TFlatSpeedButton;
    FlatSpeedButtonHotKeyListDel: TFlatSpeedButton;
    GroupBoxHotKey: TGroupBox;
    LabelHotKeyCmd: TLabel;
    LabelHotkey: TLabel;
    LabelHotKeyAction: TLabel;
    FlatComboBoxHotKeyAction: TFlatComboBox;
    FlatComboBoxHotKeyKeys: TFlatComboBox;
    FlatCheckBoxHotKeyCtrl: TFlatCheckBox;
    FlatCheckBoxHotKeyShift: TFlatCheckBox;
    FlatCheckBoxHotKeyAlt: TFlatCheckBox;
    FlatCheckBoxHotKeyWin: TFlatCheckBox;
    FlatCheckBoxHotKeyActive: TFlatCheckBox;
    FlatEditHotKeyCmd: TFlatEdit;
    TimerCloseDisplay: TTimer;
    FlatSpeedButtonDeleteIEPass: TFlatSpeedButton;
    FlatSpeedButton1: TFlatSpeedButton;
    Image2: TImage;
    FlatSpeedButton3: TFlatSpeedButton;
    FlatSpeedButton13: TFlatSpeedButton;
    FlatSpeedButton14: TFlatSpeedButton;
    FlatSpeedButton15: TFlatSpeedButton;
    FlatSpeedButton16: TFlatSpeedButton;
    FlatSpeedButton17: TFlatSpeedButton;
    FlatSpeedButton18: TFlatSpeedButton;
    FlatSpeedButton20: TFlatSpeedButton;
    FlatSpeedButton21: TFlatSpeedButton;
    FlatSpeedButton22: TFlatSpeedButton;
    FlatSpeedButton23: TFlatSpeedButton;
    FlatSpeedButton24: TFlatSpeedButton;
    FlatSpeedButton25: TFlatSpeedButton;
    FlatSpeedButton26: TFlatSpeedButton;
    FlatSpeedButton27: TFlatSpeedButton;
    FlatSpeedButton28: TFlatSpeedButton;
    FlatSpeedButton29: TFlatSpeedButton;
    FlatSpeedButton30: TFlatSpeedButton;
    FlatSpeedButton31: TFlatSpeedButton;
    FlatSpeedButton32: TFlatSpeedButton;
    FlatSpeedButton33: TFlatSpeedButton;
    FlatSpeedButton34: TFlatSpeedButton;
    FlatSpeedButton35: TFlatSpeedButton;
    FlatSpeedButton36: TFlatSpeedButton;
    FlatSpeedButton37: TFlatSpeedButton;
    FlatSpeedButton38: TFlatSpeedButton;
    FlatSpeedButton39: TFlatSpeedButton;
    FlatSpeedButton40: TFlatSpeedButton;
    FlatSpeedButton41: TFlatSpeedButton;
    FlatSpeedButton42: TFlatSpeedButton;
    FlatSpeedButton43: TFlatSpeedButton;
    FlatSpeedButton44: TFlatSpeedButton;
    FlatSpeedButton45: TFlatSpeedButton;
    FlatSpeedButton46: TFlatSpeedButton;
    FlatSpeedButton47: TFlatSpeedButton;
    FlatSpeedButton48: TFlatSpeedButton;
    FlatSpeedButton49: TFlatSpeedButton;
    FlatSpeedButton50: TFlatSpeedButton;
    FlatSpeedButton51: TFlatSpeedButton;
    FlatSpeedButton52: TFlatSpeedButton;
    FlatSpeedButton53: TFlatSpeedButton;
    FlatSpeedButtonIEActiveXDefault: TFlatSpeedButton;
    FlatSpeedButtonHotKeyDefault: TFlatSpeedButton;
    FlatGroupBoxAutoRun: TFlatGroupBox;
    FlatSpeedButtonAutoRunSave: TFlatSpeedButton;
    FlatCheckBoxAutoRun: TFlatCheckBox;
    LabelAutoRun: TLabel;
    FlatComboBoxAutoRun: TFlatComboBox;
    LabelIEActiveXNote: TLabel;
    procedure FlatSpeedButton_ExitClick(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatSpeedButton10Click(Sender: TObject);
    procedure FlatSpeedButton5Click(Sender: TObject);
    procedure FlatSpeedButton6Click(Sender: TObject);
    procedure FlatSpeedButton7Click(Sender: TObject);
    procedure FlatSpeedButton8Click(Sender: TObject);
    procedure FlatSpeedButton9Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure tmStartserviceClick(Sender: TObject);
    procedure tmstopServiceClick(Sender: TObject);
    procedure ClosebyPIDClick(Sender: TObject);
    procedure closebyNameClick(Sender: TObject);
    procedure lvServiceColumnClick(Sender: TObject; Column: TListColumn);
    procedure lvServiceCompare(Sender: TObject; Item1, Item2: TListItem;Data: Integer; var Compare: Integer);
    procedure lvProcessColumnClick(Sender: TObject; Column: TListColumn);
    procedure lvProcessCompare(Sender: TObject; Item1, Item2: TListItem;Data: Integer; var Compare: Integer);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton4Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure tvtcpudpColumnClick(Sender: TObject; Column: TListColumn);
    procedure tvtcpudpCompare(Sender: TObject; Item1, Item2: TListItem;Data: Integer; var Compare: Integer);
    procedure FormDestroy(Sender: TObject);
    procedure pmProcessPopup(Sender: TObject);
    procedure pmServicePopup(Sender: TObject);
    procedure BootListResize(Sender: TObject);
    procedure BootListSelectItem(Sender: TObject; Item: TListItem;Selected: Boolean);
    procedure DisablebtnClick(Sender: TObject);
    procedure RunbtnClick(Sender: TObject);
    procedure AddbtnClick(Sender: TObject);
    procedure delbtnClick(Sender: TObject);
    procedure FlatSpeedButton11Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure FlatEditCashDirClick(Sender: TObject);
    procedure FlatEditIEBackImageClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FlatSpeedButtonSysConfigCancelClick(Sender: TObject);
    procedure FlatSpeedButtonSysConfigSaveClick(Sender: TObject);
    procedure FlatSpeedButtonSysConfigAutoConfigClick(Sender: TObject);
    procedure FlatSpeedButtonSysInfoEnterClick(Sender: TObject);
    procedure FlatSpeedButtonSysInfoCancelClick(Sender: TObject);
    procedure FlatSpeedButtonIeInfoDefaultClick(Sender: TObject);
    procedure FlatSpeedButtonIeInfoEnterClick(Sender: TObject);
    procedure FlatSpeedButtonIeInfoCancelClick(Sender: TObject);
    procedure PageControlSysConfigChange(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FlatSpeedButtonSysRestrictDefaultClick(Sender: TObject);
    procedure FlatSpeedButtonSysRestrictAllClick(Sender: TObject);
    procedure FlatSpeedButtonSysConfigDefaultClick(Sender: TObject);
    procedure FlatSpeedButtonSysRestrictCancelClick(Sender: TObject);
    procedure FlatSpeedButtonSysRestrictSaveClick(Sender: TObject);
    procedure SysLoginMessageClick(Sender: TObject);
    procedure FlatSpeedButtonSysLoginMessageSaveClick(Sender: TObject);
    procedure FlatSpeedButtonSysLoginMessageRestoreClick(Sender: TObject);
    Procedure   AddActiveXToList(Str:string);
    procedure FlatSpeedButtonIEActiveXExportClick(Sender: TObject);
    procedure ListViewIEActiveXSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
    procedure FlatSpeedButtonIEActiveXDeleteClick(Sender: TObject);
    procedure FlatSpeedButtonIEActiveXSelectAllClick(Sender: TObject);
    procedure FlatSpeedButtonIEActiveXDisableSelectAllClick(Sender: TObject);
    procedure FlatSpeedButtonIEActiveXSaveClick(Sender: TObject);
    procedure FlatEditIEActiveXNameChange(Sender: TObject);
    procedure FlatSpeedButtonIEActiveXNewClick(Sender: TObject);
    procedure ImageMICHAELMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure HotKeyManager1HotKeyPressed(HotKey: Cardinal; Index: Word);
    procedure FlatEditHotKeyCmdClick(Sender: TObject);
    procedure FlatComboBoxHotKeyActionChange(Sender: TObject);
    procedure FlatSpeedButtonHotKeyListSaveClick(Sender: TObject);
    procedure FlatSpeedButtonHotKeyListNewClick(Sender: TObject);
    procedure FlatSpeedButtonHotKeyListDelClick(Sender: TObject);
    procedure ListViewHotKeyListSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
    procedure TimerCloseDisplayTimer(Sender: TObject);
    procedure FlatSpeedButtonDeleteIEPassClick(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure FlatSpeedButton3Click(Sender: TObject);
    procedure FlatSpeedButton13Click(Sender: TObject);
    procedure FlatSpeedButton14Click(Sender: TObject);
    procedure FlatSpeedButton15Click(Sender: TObject);
    procedure FlatSpeedButton16Click(Sender: TObject);
    procedure FlatSpeedButton17Click(Sender: TObject);
    procedure FlatSpeedButton18Click(Sender: TObject);
    procedure FlatSpeedButton34Click(Sender: TObject);
    procedure FlatSpeedButton35Click(Sender: TObject);
    procedure FlatSpeedButton36Click(Sender: TObject);
    procedure FlatSpeedButton53Click(Sender: TObject);
    procedure FlatSpeedButton37Click(Sender: TObject);
    procedure FlatSpeedButton38Click(Sender: TObject);
    procedure FlatSpeedButton39Click(Sender: TObject);
    procedure FlatSpeedButton41Click(Sender: TObject);
    procedure FlatSpeedButton42Click(Sender: TObject);
    procedure FlatSpeedButton43Click(Sender: TObject);
    procedure FlatSpeedButton45Click(Sender: TObject);
    procedure FlatSpeedButton44Click(Sender: TObject);
    procedure FlatSpeedButton46Click(Sender: TObject);
    procedure FlatSpeedButton48Click(Sender: TObject);
    procedure FlatSpeedButton49Click(Sender: TObject);
    procedure FlatSpeedButton50Click(Sender: TObject);
    procedure FlatSpeedButton51Click(Sender: TObject);
    procedure FlatSpeedButton40Click(Sender: TObject);
    procedure FlatSpeedButton47Click(Sender: TObject);
    procedure FlatSpeedButton52Click(Sender: TObject);
    procedure FlatSpeedButtonIEActiveXDefaultClick(Sender: TObject);
    procedure FlatSpeedButtonHotKeyDefaultClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatSpeedButtonAutoRunSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
    FHostName: array[0..255] of Char;  //用来保存当前的计算机名称
    FAscending: array[0..3] of Boolean; //点击ListView标题进行排序时用
    FPrevIndex: array[0..3] of Integer; //点击ListView标题进行排序时用
  public
    { Public declarations }

/////////////////////////////////////
     Procedure InitSystem();     //init the whole project
     Procedure FreeSystem();     //free the resources
     procedure GetTcpUdpInfo;    //Get the tcp/udp info
     procedure GetServicesInfo;   //Get the services info
     procedure GetProcessInfo;    //Get the Process info
     function  GetPort(port: UINT; proto: PChar): string;
     function  GetHost(local: Boolean; ipaddr: UINT): string;
     procedure WriteTCPUDPToFile(Paper: TListview;const FileName: string);
     procedure WriteProcessToFile(Paper: TListview; const FileName: string);
     procedure WriteServiceToFile(Paper: TListview; const FileName: string);
     Function  GetSaveName(DefaultFileName:string='ViewList'):string;
//////////////////////////////////////////////////////
     procedure  AddHotKey(HotKey: Cardinal);   //热键模块中用来向ComboBox控件添加所有键值列表的过程
     Function   ExecuteHotKeyProgram(const I:Integer=-1):boolean;  //执行热键列表中定义的程序
     procedure  CloseDisplay;     //关闭显示器
     procedure  TextHotKeyToControl(Const TextHotKey:string);  //把一个组合键反应到控件上去
     procedure  AddHotKeyConfig;  //设置默认的全局热键


  end;

var
  Form1: TForm1;


//////////////




implementation

uses Globals,cpuspeed,snmp,UOperateProcess,UProcessService,UTransparent,WinSock,Winsvc,sysifo,StartUpManger,
  Unit2;

{$R *.dfm}

type  //热键模块中用来向ComboBox控件添加所有键值列表的过程用到的自定义类
  TPotentialKey = class
    Key: Word;
    constructor Create(iKey: Word);
  end;
constructor TPotentialKey.Create(iKey: Word);
begin
  inherited Create;
  Key := iKey;
end;




procedure TForm1.FlatSpeedButton_ExitClick(Sender: TObject);
begin
  Application.Terminate;
end;
procedure TForm1.Image7Click(Sender: TObject);
begin
  Application.Minimize;
end;

procedure TForm1.Image2Click(Sender: TObject);
var
    i:integer;
begin
  IsHide:=True;
  for i:=0 to ListViewHotKeyList.Items.Count-1 do
  begin
    if (Assigned(ListViewHotKeyList.Items[i]))and(ListViewHotKeyList.Items[i].SubItems[0]=HotKeyActions[7]) then showmessage('程序窗体将被隐藏，请使用热键 '+ShowWindowHotKey+' 或 '+ListViewHotKeyList.Items[i].SubItems[2]+' 恢复显示.');
  end;
  ShowWindowMode(Self,0);    //隐藏程序
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action := caNone;   //让ALT＋F4不能关闭程序
     Image7Click(Sender);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeSystem();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if (IF_CheckProgramStart)and(CheckProgramStart(TForm(Self).Caption)) then begin BringWindow; halt; end;  //应用限制多个实例
Application.Title:=Product_Name;
FlatTitlebarTop.Caption:=Product_Name;
LabelLabelProgramReadme.caption:='                               '+Product_Name+#13+Product_About+'QQ:'+QQ+#13+'     主页: '+Home_UrlNew+'  Or  '+Home_Url;
PageControl1.ActivePageIndex:=8;     //设置程序的默认功能页面