📄 main.pas
字号:
FindButtonvid: TspSkinButton;
RadioBox1: TspSkinCheckRadioBox;
Panel30: TspSkinPanel;
ScrollBox1: TspSkinScrollBox;
Image1: TPaintBox;
ScrollBarVid: TspSkinScrollBar;
ScrollBarvid2: TspSkinScrollBar;
Panel160: TspSkinPanel;
Panel18: TspSkinPanel;
Label18: TspSkinStdLabel;
Label19: TspSkinStdLabel;
Label20: TspSkinStdLabel;
Label22: TspSkinStdLabel;
spSkinEdit8: TspSkinEdit;
ComboBox1: TspSkinComboBox;
ComboBox2: TspSkinComboBox;
spSkinEdit9: TspSkinEdit;
CmdButton49: TspSkinButton;
CmdButton50: TspSkinButton;
Panel17: TspSkinPanel;
StartButtonA: TspSkinButton;
StopButtonA: TspSkinButton;
ViodButtonstat: TspSkinButton;
ViodButtonStop: TspSkinButton;
TabSheet6: TspSkinTabSheet;
GroupBox2: TspSkinGroupBox;
Serveronlinelist: TspSkinListView;
spSkinScrollBar4: TspSkinScrollBar;
spSkinScrollBar5: TspSkinScrollBar;
ExPanel5: TspSkinExPanel;
Panel28: TspSkinPanel;
RadioBox8: TspSkinCheckRadioBox;
GjButton40: TspSkinButton;
CqButton41: TspSkinButton;
XzButton42: TspSkinButton;
ZjButton43: TspSkinButton;
SkinEdit1: TspSkinEdit;
spSkinPanel3: TspSkinPanel;
Label23: TspSkinStdLabel;
Label24: TspSkinStdLabel;
wwwEdit: TspSkinEdit;
Button44: TspSkinButton;
DownEdit: TspSkinEdit;
Button33: TspSkinButton;
RadioBox9: TspSkinCheckRadioBox;
QcButton46: TspSkinButton;
procedure DSFChangeSkinData(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure Close2Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure dggdfgdfgfgfdg1Click(Sender: TObject);
procedure dfgfgdfg1Click(Sender: TObject);
procedure DSFSkinMenuOpen(Sender: TObject);
procedure DSFSkinMenuClose(Sender: TObject);
procedure toolbutton4Click(Sender: TObject);
procedure toolbutton1Click(Sender: TObject);
procedure toolbutton2Click(Sender: TObject);
procedure Loadskin1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure Storedskin1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure GetComputer;
procedure GetDrivernum(var DiskList: TStringList);
function DiskInDrive(Drive: Char): Boolean;
procedure ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure ToolButton9Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
procedure ListView1DblClick(Sender: TObject);
procedure FileToolButton1Click(Sender: TObject);
procedure TreeView3Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure PageControl1Change(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure CopyobClick(Sender: TObject);
procedure CopytoClick(Sender: TObject);
procedure DelToClick(Sender: TObject);
procedure NonerunClick(Sender: TObject);
procedure UpFileFolderClick(Sender: TObject);
procedure DownFileFolderClick(Sender: TObject);
procedure NewFolderClick(Sender: TObject);
procedure RenClick(Sender: TObject);
procedure UpFileClick(Sender: TObject);
procedure DownFileClick(Sender: TObject);
procedure HiderunClick(Sender: TObject);
procedure MinrunClick(Sender: TObject);
procedure MaxrunClick(Sender: TObject);
procedure RunzClick(Sender: TObject);
procedure QviweClick(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure FileToolButton10Click(Sender: TObject);
procedure LoadINIFile;
procedure N2Click(Sender: TObject);
procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ToolButton3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FileViewMenuPopup(Sender: TObject);
procedure FileToolButton9Click(Sender: TObject);
procedure ListView1Edited(Sender: TObject; Item: TListItem;
var S: string);
procedure ListView1Editing(Sender: TObject; Item: TListItem;
var AllowEdit: Boolean);
procedure SportEditKeyPress(Sender: TObject; var Key: Char);
procedure TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure FormResize(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure TreeView3Change(Sender: TObject; Node: TTreeNode);
procedure N1Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure DWORD1Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure CmdButton1Click(Sender: TObject);
procedure CmdButton4Click(Sender: TObject);
procedure CmdButton5Click(Sender: TObject);
procedure CmdButton6Click(Sender: TObject);
procedure CmdButton7Click(Sender: TObject);
procedure CmdButton8Click(Sender: TObject);
procedure CmdButton9Click(Sender: TObject);
procedure NewTXTClick(Sender: TObject);
procedure CmdButton10Click(Sender: TObject);
procedure CmdButton11Click(Sender: TObject);
procedure CmdButton12Click(Sender: TObject);
procedure CmdButton13Click(Sender: TObject);
procedure CmdButton14Click(Sender: TObject);
procedure CmdButton15Click(Sender: TObject);
procedure CmdButton16Click(Sender: TObject);
procedure CmdButton17Click(Sender: TObject);
procedure CmdButton18Click(Sender: TObject);
procedure CmdButton19Click(Sender: TObject);
procedure CmdButton20Click(Sender: TObject);
procedure CmdButton21Click(Sender: TObject);
procedure CmdButton22Click(Sender: TObject);
procedure CmdButton23Click(Sender: TObject);
procedure CmdButton24Click(Sender: TObject);
procedure ListView5Click(Sender: TObject);
procedure CmdButton29Click(Sender: TObject);
procedure CmdButton27Click(Sender: TObject);
procedure CmdButton28Click(Sender: TObject);
procedure CmdButton34Click(Sender: TObject);
procedure CmdButton35Click(Sender: TObject);
procedure CmdButton32Click(Sender: TObject);
procedure CmdButton33Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure MenuItem7Click(Sender: TObject);
procedure TreeView3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MenuItem8Click(Sender: TObject);
procedure CmdButton36Click(Sender: TObject);
procedure CmdButton37Click(Sender: TObject);
procedure CmdButton38Click(Sender: TObject);
procedure CmdButton39Click(Sender: TObject);
procedure CmdButton40Click(Sender: TObject);
procedure CmdButton41Click(Sender: TObject);
procedure CmdButton43Click(Sender: TObject);
procedure CmdButton44Click(Sender: TObject);
procedure CmdButton45Click(Sender: TObject);
procedure CmdButton46Click(Sender: TObject);
procedure CmdButton47Click(Sender: TObject);
procedure CmdButton48Click(Sender: TObject);
procedure CmdButton42Click(Sender: TObject);
procedure CmdButton49Click(Sender: TObject);
procedure CmdButton50Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure CqButton41Click(Sender: TObject);
procedure XzButton42Click(Sender: TObject);
procedure ZjButton43Click(Sender: TObject);
procedure GIFAnimatorClick(Sender: TObject);
procedure N55Click(Sender: TObject);
procedure HotKeySpy1HotKeys(Sender: TObject; HotKeyIndex: Word);
procedure CtrlF121Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure Button44Click(Sender: TObject);
procedure ServeronlinelistColumnClick(Sender: TObject;
Column: TListColumn);
procedure ServeronlinelistCompare(Sender: TObject; Item1,
Item2: TListItem; Data: Integer; var Compare: Integer);
procedure Timer4Timer(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure ToolButtonButton6Click(Sender: TObject);
procedure N65Click(Sender: TObject);
procedure N68Click(Sender: TObject);
procedure N69Click(Sender: TObject);
procedure Button33Click(Sender: TObject);
procedure IP1Click(Sender: TObject);
procedure CmdButton30Click(Sender: TObject);
procedure CmdButton31Click(Sender: TObject);
procedure CmdButton25Click(Sender: TObject);
procedure CmdButton26Click(Sender: TObject);
procedure SelfAV1CRCError(Sender: TObject; CanRepair: Boolean);
procedure CmdButton3Click(Sender: TObject);
procedure N72Click(Sender: TObject);
procedure ControlBar2Resize(Sender: TObject);
procedure FTP1Click(Sender: TObject);
procedure FTP2Click(Sender: TObject);
procedure ServeronlinelistCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure StartButtonAClick(Sender: TObject);
procedure StopButtonAClick(Sender: TObject);
procedure QcButton46Click(Sender: TObject);
procedure N77Click(Sender: TObject);
procedure N79Click(Sender: TObject);
procedure IdTCPServer1Execute(AThread: TIdPeerThread);
procedure ServeronlinelistChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
procedure IdTCPServer1Disconnect(AThread: TIdPeerThread);
//-----------------------------------------------------
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 Button65Click(Sender: TObject);
procedure Button64Click(Sender: TObject);
procedure Button63Click(Sender: TObject);
procedure Button62Click(Sender: TObject);
procedure ViodButtonStatClick(Sender: TObject);
procedure Image1Paint(Sender: TObject);
procedure ViodButtonStopClick(Sender: TObject);
procedure FindButtonvidClick(Sender: TObject);
procedure GjButton40Click(Sender: TObject);
procedure RadioBox8Click(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure IdTCPServer1Connect(AThread: TIdPeerThread);
//-----------------------------------------------------
private
{ Private declarations }
procedure LoadLanguageList();
procedure OnMenuItemClick(Sender:TObject);
procedure wmqueryendsession(var message: twmqueryendsession); message wm_queryendsession;
protected
procedure DoChangeLanguage();override;
public
{ Public declarations }
Myinifile: Tinifile; {定义一个inifile}
INIFileName: string; {储存inifile的文件名}
Stopscan: boolean; {连接时进度条是否有进度}
Noisreg: boolean;
isSound: Boolean; {是否语音提示}
OnSLine, OffSLine, UpIPok, FileSDown, FileSup: string;
AutoSxport: integer; {本地端口}
nowdirect, CurDir, CurFile: string;
nowregpath: string;
Qviwepath, DownRDir: string;
FuZhi, ZhanTei, OldFilename: string; {复制粘贴}
ComputerDir: string; {我的电脑目录路径}
ComputerFile: string; {选中我的电脑的文件}
ComputerFuzhi, ComputerZhanTei: string; {复制粘贴}
ComputerorServer: boolean; {是我的电脑还是服务器}
isBpok: Boolean;
Rslen, RsFilelen, DongZhuo, RBpS: integer;
RsltStream: TMemoryStream;
FleshIPList: TStringlist; {存放IP地理位置的列表}
SortedColumn: Integer;
Descending: Boolean;
AlreadyReadLen, ReadFileLen: integer;
DonwHeader: integer;
FDoubleBuffer: TBitmap;
Videobmp:Tbitmap;
FilesConTrol,ScreenCThread,ScrControl,AcmOutThread : TIdPeerThread;
VideoThread:TIdPeerThread;
function PCfilepic(FileExt: string): integer;
function Serverfilepic(FileExt: string): integer;
function DongdaiIP: string;
function DoRemoveDir(mDirName: string): Boolean;
procedure Mycopyfile(sourse: string; dest: string);
function DoCopyDir(sDirName: string; sToDirName: string): Boolean;
procedure GetDri(Chu: string);
procedure GetFileList(FileList: string);
function GetIPtoAdder(IpName: string): string;
function GetAddertoIP(AdderName: string): string;
procedure ZhuDongCmdSend(Miling, Qita: string;isbreak:Boolean);
procedure GetSubTreeNode(TheTV: TspSkinTreeView; TheNode: TTreeNode;
TheLV: TspSkinListView; TheRoot, TheKey: string);
procedure DoValueModify(TheRoot, TheKey, TheValues: string; HexStr: string);
procedure DoValueDelete(TheRoot, TheKey, TheValues: string);
procedure DoValueRename(TheRoot, TheKey, TheValues: string);
function GetDosOutput(var Command: string): string;
function tranhexstr(s: string): string;
procedure Deleteregkey(RpathTemp: string);
function Clip_Text: string;
function Getopentime(Tmp: DWord): string;
procedure AddLineStr(LineStr: string; IsColor: integer; isBold: Bool);
function SendStreamToServer(AThread:TIdPeerThread;Cmd:String): Boolean;
end;
var
HgzVip: THgzVip;
{UpDown[i]用于保存降序或者升序排序,True表示升序,False表示降序}
MyFirstBmp: TMemoryStream; //缓冲区
UpDown: array[0..2] of Boolean;
nowfilenode, nowregnode: Ttreenode;
PrTime: dword;
nRead: longint;
FileMAThread : TIdPeerThread;
DownFilsAThread : TIdPeerThread;
OnlineServer: array of Tonlineinf;
OnlineCount: integer;
LianlineThread: TIdPeerThread; {服务器套接字句柄}
LianlineSoc: integer;
ISClientClose:Boolean;
implementation
uses
Changyong, AboutUnit, UpIp, Sysinf,
login, ShowPic,
Splash, RegEditUnit, RegHexEdit, DlgshowUnit, ConfigServerUnit, DownGifUnit, My_StreamManage,
NewxpSer, FtpUpUnit1, FtpDownUnit, ExeToolUnit, BmpToAviUnit,
FTPServerUnit, Scanover;
{$R *.DFM}
procedure THgzVip.SelfAV1CRCError(Sender: TObject; CanRepair: Boolean);
begin
Application.Terminate;
end;
function THgzVip.Getopentime(Tmp: DWord): string;
var h, m, s: integer;
begin
try
h := (Tmp div 1000) div 3600;
s := (Tmp div 1000) mod 60;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -