mainform.pas

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

{*******************************************************}
{                                                       }
{       系统工具箱程序主窗体单元                        }
{                                                       }
{             Copyright (c) 2005, MICHAEL               }
{    http://xuhaohome.yeah.net OR xuhaohome.2008.cc     }
{     E-Mail:[e-mail]   QQ:10660578 8416321       }
{                                                       }
{*******************************************************}

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls,ExtCtrls,
  ImgList,Menus,jpeg,Registry,INIFiles,ShellAPI,ShlObj,ActiveX,ComObj,StrUtils,Buttons, StdCtrls,FileCtrl,
  MMSystem,TFlatListBoxUnit, TFlatCheckBoxUnit, TFlatPanelUnit, TFlatSpeedButtonUnit,TFlatGroupBoxUnit,
  TFlatTitlebarUnit,EffectUtils,AnimationEffect,TFlatButtonUnit,TFlatEditUnit, ExtDlgs, TFlatSpinEditUnit,
  TFlatMemoUnit, HotKeyManager,TFlatComboBoxUnit,Shell32_TLB;

type                         

  TForm1=class(TForm)
    FlatTitlebarTop: TFlatTitlebar;
    PanelFull: TPanel;
    FlatGroupBox1: TFlatGroupBox;
    FlatSpeedButton10: TFlatSpeedButton;
    FlatSpeedButton_Exit: TFlatSpeedButton;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatSpeedButton5: TFlatSpeedButton;
    FlatSpeedButton6: TFlatSpeedButton;
    FlatSpeedButton7: TFlatSpeedButton;
    FlatSpeedButton8: TFlatSpeedButton;
    FlatSpeedButton9: TFlatSpeedButton;
    FlatTitlebarBotton: TFlatTitlebar;
    FlatTitlebarLeft: TFlatTitlebar;
    Image1: TImage;
    ImageListSmallIco: TImageList;
    Timer1: TTimer;
    LabelCpuSpend: TLabel;
    Image7: TImage;
    Image8: TImage;
    AnimationEffect1: TAnimationEffect;
    pmProcess: TPopupMenu;
    ClosebyPID: TMenuItem;
    closebyName: TMenuItem;
    pmService: TPopupMenu;
    tmStartservice: TMenuItem;
    tmstopService: TMenuItem;
    ImageList: TImageList;
    lvpopup: TPopupMenu;
    Disablebtn: TMenuItem;
    N18: TMenuItem;
    Addbtn: TMenuItem;
    delbtn: TMenuItem;
    N19: TMenuItem;
    Refreshbtn: TMenuItem;
    Runbtn: TMenuItem;
    N20: TMenuItem;
    Propertiesbtn: TMenuItem;
    ImageListSetup2: TImageList;
    ImageListSetupListIco: TImageList;
    FlatSpeedButton11: TFlatSpeedButton;
    OpenPictureDialogIEBackImage: TOpenPictureDialog;
    ImageProgramIco: TImage;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    FlatGroupBox3: TFlatGroupBox;
    FlatButton1: TFlatButton;
    TreeViewSysInfo: TTreeView;
    PanelTitle1: TPanel;
    TabSheet2: TTabSheet;
    FlatGroupBox2: TFlatGroupBox;
    FlatButton2: TFlatButton;
    lvProcess: TListView;
    FlatButton3: TFlatButton;
    PanelTitle2: TPanel;
    TabSheet3: TTabSheet;
    FlatGroupBox4: TFlatGroupBox;
    FlatSpeedButton4: TFlatSpeedButton;
    lvService: TListView;
    FlatButton4: TFlatButton;
    PanelTitle3: TPanel;
    TabSheet4: TTabSheet;
    FlatGroupBox5: TFlatGroupBox;
    FlatSpeedButton12: TFlatSpeedButton;
    tvtcpudp: TListView;
    FlatButton5: TFlatButton;
    PanelTitle4: TPanel;
    TabSheet5: TTabSheet;
    FlatGroupBox6: TFlatGroupBox;
    Panel1: TPanel;
    Panel4: TPanel;
    BootList: TListView;
    Panel5: TPanel;
    FlatPanelSetupTitle: TFlatPanel;
    ImageSetupIco: TImage;
    LabelSetupTitle: TLabel;
    StatusBarStartUp: TStatusBar;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    FlatGroupBox9: TFlatGroupBox;
    Panel2: TPanel;
    TabSheet9: TTabSheet;
    PageControlSysConfig: TPageControl;
    TabSheetSysInfo: TTabSheet;
    TabSheetSysOption: TTabSheet;
    FlatGroupBox7: TFlatGroupBox;
    FlatGroupBoxIESet: TFlatGroupBox;
    LabelIEVer: TLabel;
    LabelStartPage: TLabel;
    LabelTitle: TLabel;
    LabelCashDir: TLabel;
    LabelDownloadDir: TLabel;
    LabelSearchPath: TLabel;
    LabelIEBackImage: TLabel;
    LabelIEMaxThr: TLabel;
    FlatEditIEVer: TFlatEdit;
    FlatEditStartPage: TFlatEdit;
    FlatEditTitle: TFlatEdit;
    FlatEditCashDir: TFlatEdit;
    FlatEditDownloadDir: TFlatEdit;
    FlatEditSearchPath: TFlatEdit;
    FlatEditIEBackImage: TFlatEdit;
    FlatSpinEditIntegerIEMaxThr: TFlatSpinEditInteger;
    FlatGroupBox8: TFlatGroupBox;
    FlatSpeedButtonSysConfigDefault: TFlatSpeedButton;
    FlatSpeedButtonSysConfigSave: TFlatSpeedButton;
    FlatSpeedButtonSysConfigCancel: TFlatSpeedButton;
    FlatGroupBoxSysInfo: TFlatGroupBox;
    LabelCpusymbol: TLabel;
    LabelRegItemName: TLabel;
    LabelRegUserName: TLabel;
    LabelDirectXVer: TLabel;
    LabelSetupDir: TLabel;
    LabelCoputerName: TLabel;
    FlatEditCpusymbol: TFlatEdit;
    FlatEditRegItemName: TFlatEdit;
    FlatEditRegUserName: TFlatEdit;
    FlatEditDirectXVer: TFlatEdit;
    FlatEditSetupDir: TFlatEdit;
    FlatEditCoputerName: TFlatEdit;
    FlatSpeedButtonSysConfigAutoConfig: TFlatSpeedButton;
    FlatSpeedButtonSysInfoCancel: TFlatSpeedButton;
    FlatSpeedButtonSysInfoEnter: TFlatSpeedButton;
    FlatSpeedButtonIeInfoEnter: TFlatSpeedButton;
    FlatSpeedButtonIeInfoCancel: TFlatSpeedButton;
    FlatSpeedButtonIeInfoDefault: TFlatSpeedButton;
    Timer2: TTimer;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    FlatGroupBox13: TFlatGroupBox;
    FlatGroupBoxSafetyCapability: TFlatGroupBox;
    CPUMuchTimeToProgram: TFlatCheckBox;
    SytemAutoReboot: TFlatCheckBox;
    ShortToCtrlAltDelTime: TFlatCheckBox;
    AutoToEndProgram: TFlatCheckBox;
    ClearPageFileAtShutdown: TFlatCheckBox;
    ActiveLargeSystemCache: TFlatCheckBox;
    DisablePagingExecutive: TFlatCheckBox;
    CloseMenuAnimate: TFlatCheckBox;
    CloseScrollAnimate: TFlatCheckBox;
    WindowsUpDateMode: TFlatCheckBox;
    CloseStartMenuBanner: TFlatCheckBox;
    CloseWindowMenuAnimate: TFlatCheckBox;
    DesktopProcess: TFlatCheckBox;
    MenuShowDelay: TFlatCheckBox;
    AlwaysUnloadDLL: TFlatCheckBox;
    CloseDebugFun: TFlatCheckBox;
    ContigFileAllocSize: TFlatCheckBox;
    EnableUDMA66: TFlatCheckBox;
    NtfsDisableLastUpdate: TFlatCheckBox;
    NtfsDisableOldFileName: TFlatCheckBox;
    RandomAdapter: TFlatCheckBox;
    Tcp1323Opts: TFlatCheckBox;
    restrictanonymous: TFlatCheckBox;
    AutoShareServer: TFlatCheckBox;
    ClearRecentDocsOnExit: TFlatCheckBox;
    FlatCheckBoxAddDosQuick: TFlatCheckBox;
    DisableShutIco: TFlatCheckBox;
    dontdisplaylastusername: TFlatCheckBox;
    FastReboot: TFlatCheckBox;
    SystemStartOptions: TFlatCheckBox;
    HiddenComputerName: TFlatCheckBox;
    EnableICMPRedirect: TFlatCheckBox;
    SMBDeviceEnabled: TFlatCheckBox;
    RestrictGuestAccess: TFlatCheckBox;
    CloseNetBIOS: TFlatCheckBox;
    FlatGroupBox12: TFlatGroupBox;
    FlatGroupBox10: TFlatGroupBox;
    NoRealMode: TFlatCheckBox;
    DisabledDos: TFlatCheckBox;
    DisableRegScript: TFlatCheckBox;
    DisableRegistryTools: TFlatCheckBox;
    DisableCDAutorun: TFlatCheckBox;
    NoRecycle: TFlatCheckBox;
    NoNetHooD: TFlatCheckBox;
    NoSaveSettings: TFlatCheckBox;
    NoDevMgrPage: TFlatCheckBox;
    NoDispSettingsPage: TFlatCheckBox;
    NoDispAppearancePage: TFlatCheckBox;
    NoDispScrSavPage: TFlatCheckBox;
    NoDispBackgroundPage: TFlatCheckBox;
    NoFileSysPage: TFlatCheckBox;
    NoVirtMemPage: TFlatCheckBox;
    NoFavoritesMenu: TFlatCheckBox;
    NoRecentDocsMenu: TFlatCheckBox;
    NoRun: TFlatCheckBox;
    NoStartMenuSet: TFlatCheckBox;
    NoFind: TFlatCheckBox;
    NoLogOff: TFlatCheckBox;
    NoClose: TFlatCheckBox;
    NoDrives: TFlatCheckBox;
    NoViewContextMenu: TFlatCheckBox;
    NoDesktopIco: TFlatCheckBox;
    NoTrayContextMenu: TFlatCheckBox;
    NoControlPanel: TFlatCheckBox;
    NoNetShare: TFlatCheckBox;
    CheckedValue: TFlatCheckBox;
    DisableTaskMgr: TFlatCheckBox;
    RestrictRun: TFlatCheckBox;
    disablelockworkstation: TFlatCheckBox;
    FlatSpeedButtonSysRestrictDefault: TFlatSpeedButton;
    FlatSpeedButtonSysRestrictSave: TFlatSpeedButton;
    FlatSpeedButtonSysRestrictCancel: TFlatSpeedButton;
    Check_Page: TFlatCheckBox;
    Check_Default_IE_Name: TFlatCheckBox;
    Check_Safety: TFlatCheckBox;
    Check_Content: TFlatCheckBox;
    Check_Link: TFlatCheckBox;
    Control_Internet: TFlatCheckBox;
    Check_I_Progra: TFlatCheckBox;
    Check_I_Advance: TFlatCheckBox;
    Check_Cant_Donload: TFlatCheckBox;
    Check_SaveAS: TFlatCheckBox;
    Check_View: TFlatCheckBox;
    Check_FileMenu: TFlatCheckBox;
    Check_Mouse_Right: TFlatCheckBox;
    FlatSpeedButtonSysRestrictAll: TFlatSpeedButton;
    ConfigSysNet: TFlatCheckBox;
    SwellIEUrl: TFlatCheckBox;
    FlatGroupBoxSysLoginMessage: TFlatGroupBox;
    SysLoginMessage: TFlatCheckBox;
    FlatMemoSysLoginMessageNote: TFlatMemo;
    LabelSysLoginMessageTitle: TLabel;
    LabelSysLoginMessageNote: TLabel;
    FlatEditSysLoginMessageTitle: TFlatEdit;
    FlatSpeedButtonSysLoginMessageSave: TFlatSpeedButton;
    FlatSpeedButtonSysLoginMessageRestore: TFlatSpeedButton;
    disablepwdcaching: TFlatCheckBox;
    Ssienablecmddirective: TFlatCheckBox;
    remoteregaccess: TFlatCheckBox;
    FlatGroupBox11: TFlatGroupBox;
    ListViewIEActiveX: TListView;
    FlatSpeedButtonIEActiveXNew: TFlatSpeedButton;
    FlatSpeedButtonIEActiveXDelete: TFlatSpeedButton;
    FlatSpeedButtonIEActiveXSelectAll: TFlatSpeedButton;
    FlatSpeedButtonIEActiveXDisableSelectAll: TFlatSpeedButton;
    FlatSpeedButtonIEActiveXSave: TFlatSpeedButton;
    FlatSpeedButtonIEActiveXExport: TFlatSpeedButton;
    LabelIEActiveXName: TLabel;
    FlatEditIEActiveXName: TFlatEdit;
    LabelIEActiveXCLSID: TLabel;
    FlatEditIEActiveXCLSID: TFlatEdit;
    FlatGroupBox14: TFlatGroupBox;
    Panel3: TPanel;
    FlatGroupBox15: TFlatGroupBox;
    Label1: TLabel;
    ImageMICHAEL: TImage;
    LabelLabelProgramReadme: TLabel;
    GroupBox1: TGroupBox;
    pnlHotkeys: TPanel;
    lvHotkeys: TListView;
    pnlControls: TPanel;
    pnlEdit: TPanel;
    grpHotkey: TGroupBox;
    lblDescription: TLabel;
    lblCommandLine: TLabel;
    lblHotkey: TLabel;
    lblAction: TLabel;
    lblID: TLabel;
    lblShow: TLabel;
    edtKeysToSend: TEdit;
    cboParams: TComboBox;
    edtDescription: TEdit;
    chkCtrl: TCheckBox;
    chkAlt: TCheckBox;
    chkShift: TCheckBox;
    chkWin: TCheckBox;
    cboHotkey: TComboBox;
    chkActive: TCheckBox;
    cboActions: TComboBox;
    edtID: TEdit;
    cboShow: TComboBox;
    cboClipboard: TComboBox;
    pnlOptions: TPanel;