📄 unit1.pas
字号:
end;
procedure TForm1.ToolButton12Click(Sender: TObject);
begin
if Panel6.Height<10 then Panel6.Height:=300 else
Panel6.Height:=0;
PageControl1.ActivePage:=TabSheet9;
end;
procedure TForm1.IdFTCPClientConnected(Sender: TObject);
begin
repeat
PageScroller4.Height:=PageScroller4.Height-5;
until PageScroller4.Height<7;
end;
procedure TForm1.IdFTCPClientDisconnected(Sender: TObject);
begin
ToolButton6.Down:=False;
ToolButton7.Down:=True;
ShowDisConnectGUI;//显示断开连接界面
Panel15.Caption:='操作指示:';
Panel188.Caption:='远程主机'+idFTcpClient.Host+'连接断开！';
end;
procedure TForm1.SpeedButton28Click(Sender: TObject);
begin
ShowDisConnectGUI;//显示断开连接界面
IdFTCPClient.Disconnect;
end;
procedure TForm1.SpeedButton26Click(Sender: TObject);
var
iRec:integer;
begin
iRec:=0;
TheFileConnectRec.ConHost:=Edit2.Text;
TheFileConnectRec.ConPort:=StrToInt(Edit5.Text);
TheFileConnectRec.UserName:=ComboBox2.Text;
TheFileConnectRec.Password:=Edit6.Text;
if ConnectRemoteHost(idFTcpClient,TheFileConnectRec) then
begin
ShowConnectGUI;
try
iRec:=idFTcpClient.ReadInteger;//读取连接后返回标志
except
ShowDisConnectGUI;
ToolButton6.Down:=False;
ToolButton7.Down:=True;
end;
if iRec=1 then
begin
Panel188.Caption:='远程主机'+idFTcpClient.Host+'连接成功!';
Panel15.Caption:='验证成功';
end;
if iRec=0 then
begin
Beep;
Application.MessageBox('远程拒绝连接，请重新设置登录参数。',
'网络验证失败',MB_OK+MB_ICONSTOP);
idFTcpClient.Disconnect;
Panel15.Caption:='验证失败';
Panel188.Caption:='远程主机'+idFTcpClient.Host+'验证失败断开!';
end;
end else
begin
beep;
ShowDisConnectGUI;
ToolButton6.Down:=False;
ToolButton7.Down:=True;
Panel15.Caption:='信息指示:';
Panel188.Caption:='远程主机'+idFTcpClient.Host+'连接失败!';
Application.MessageBox('连接错误，请检查网络设备是否正常。',
'网络连接超时',MB_OK+MB_ICONSTOP);
end;
end;
procedure TForm1.N64Click(Sender: TObject);
begin
if ((TreeView2.Selected<>nil) and
(TreeView2.Selected.ImageIndex<7)) then
UserForm.ComboBox1.Text:=TreeView2.Selected.Text else
if ((TreeView2.Selected<>nil) and
(TreeView2.Selected.Parent<>nil)) then
UserForm.ComboBox1.Text:=TreeView2.Selected.Parent.Text else
UserForm.ComboBox1.Text:='无';
UserForm.ShowModal;
end;
procedure TForm1.N98Click(Sender: TObject);
begin
if ((TreeView2.Selected<>nil) and
(TreeView2.Selected.ImageIndex<7)) then
GroupForm.ComboBox1.Text:=TreeView2.Selected.Text else
if ((TreeView2.Selected<>nil) and
(TreeView2.Selected.Parent<>nil)) then
GroupForm.ComboBox1.Text:=TreeView2.Selected.Parent.Text else
GroupForm.ComboBox1.Text:='无';
GroupForm.CheckBox1.Checked:=False;
GroupForm.ShowModal;
end;
procedure TForm1.N65Click(Sender: TObject);
begin
if application.MessageBox('您真的要执行删除操作吗？','网络尖兵',
MB_OKCANCEL+MB_ICONWARNING)=IDOK then
DeleteUser(TreeView2,UserCDS);
end;
procedure TForm1.N99Click(Sender: TObject);
begin
if application.MessageBox('您真的要执行删除操作吗？','网络尖兵',
MB_OKCANCEL+MB_ICONWARNING)=IDOK then
DeleteGroup(TreeView2,UserCDS);
end;
procedure TForm1.TreeView2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if TreeView2.Items.Count=0 then
begin
ToolButton1.Enabled:=True;
ToolButton3.Enabled:=False;
TreeView2.PopupMenu.Items[0].Enabled:=False;
TreeView2.PopupMenu.Items[1].Enabled:=True;
TreeView2.PopupMenu.Items[3].Enabled:=False;
TreeView2.PopupMenu.Items[4].Enabled:=False;
end;
if TreeView2.Selected=nil then exit;
if TreeView2.Selected.ImageIndex<7 then
begin
TreeView2.PopupMenu.Items[0].Enabled:=True;
TreeView2.PopupMenu.Items[1].Enabled:=True;
TreeView2.PopupMenu.Items[3].Enabled:=False;
TreeView2.PopupMenu.Items[4].Enabled:=True;
ToolButton1.Enabled:=True;
ToolButton3.Enabled:=True;
if TreeView2.Selected.HasChildren then
TreeView2.PopupMenu.Items[4].Enabled:=False;
end;
if TreeView2.Selected.ImageIndex>6 then
begin
ToolButton3.Enabled:=False;
ToolButton1.Enabled:=False;
TreeView2.PopupMenu.Items[0].Enabled:=False;
TreeView2.PopupMenu.Items[1].Enabled:=False;
TreeView2.PopupMenu.Items[3].Enabled:=True;
TreeView2.PopupMenu.Items[4].Enabled:=False;
end;
if TreeView2.Selected.ImageIndex>9 then
begin
TreeView2.PopupMenu.Items[0].Enabled:=False;
TreeView2.PopupMenu.Items[1].Enabled:=False;
TreeView2.PopupMenu.Items[3].Enabled:=False;
TreeView2.PopupMenu.Items[4].Enabled:=False;
ToolButton3.Enabled:=False;
ToolButton1.Enabled:=False;
end;
end;
procedure TForm1.TreeView2DblClick(Sender: TObject);
begin
if TreeView2.Selected=nil then exit;
if TreeView2.Selected.ImageIndex<>7 then exit;
UserCDS.Open;
UserCDS.First;
repeat
if TreeView2.Selected.Text=
UserCDS.FieldByName('MyName').AsString then
begin
Panel24.caption:=UserCDS.FieldByName('MyName').AsString;
Edit2.Text:=UserCDS.FieldByName('HostName').AsString;
Edit5.Text:=UserCDS.FieldByName('Port').AsString;
ComboBox2.Text:=UserCDS.FieldByName('UserName').AsString;
Edit6.Text:=UserCDS.FieldByName('Password').AsString;
end;
UserCDS.Next;
Until UserCDS.Eof;
UserCDS.Close;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
N64Click(self);
end;
procedure TForm1.N13Click(Sender: TObject);
begin
N65Click(self);
end;
procedure TForm1.N8Click(Sender: TObject);
begin
N98Click(self);
end;
procedure TForm1.N9Click(Sender: TObject);
begin
N99Click(self);
end;
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
DownCDS.Open;
DownCDS.Edit;
end;
procedure TForm1.SpeedButton38Click(Sender: TObject);
begin
SysForm.ShowModal;
end;
procedure TForm1.ToolButton14Click(Sender: TObject);
begin
if Panel6.Height>15 then
if PageControl1.ActivePage<>TabSheet5 then
begin
PageControl1.ActivePage:=TabSheet5;
exit;
end;
if (Panel6.Height<10) then
Panel6.Height:=SHeight else
Panel6.Height:=0;
PageControl1.ActivePage:=TabSheet5;
end;
procedure TForm1.ToolButton18Click(Sender: TObject);
begin
if Panel6.Height>15 then
if PageControl1.ActivePage<>TabSheet9 then
begin
PageControl1.ActivePage:=TabSheet9;
exit;
end;
if (Panel6.Height<10) then
Panel6.Height:=SHeight else
Panel6.Height:=0;
PageControl1.ActivePage:=TabSheet9;
end;
procedure TForm1.ToolButton20Click(Sender: TObject);
begin
SysForm.ShowModal;
end;
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
if Panel6.Height>15 then
if PageControl1.ActivePage<>TabSheet3 then
begin
PageControl1.ActivePage:=TabSheet3;
exit;
end;
if (Panel6.Height<10) then
Panel6.Height:=SHeight else
Panel6.Height:=0;
PageControl1.ActivePage:=TabSheet3;
end;
procedure TForm1.ToolButton8Click(Sender: TObject);
begin
if Panel6.Height>15 then
if PageControl1.ActivePage<>TabSheet2 then
begin
PageControl1.ActivePage:=TabSheet2;
exit;
end;
if (Panel6.Height<10) then
Panel6.Height:=SHeight else
Panel6.Height:=0;
PageControl1.ActivePage:=TabSheet2;
end;
procedure TForm1.Memo2KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ReadLen:integer;
begin
if Key=13 then
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('$:\>'+Memo2.Lines[0]);
if IdFTCPClient.Connected then
begin
IdFTCPClient.Write('命令行'+EOL);
IdFTCPClient.Write(Memo2.Lines[0]+EOL);
Memo1.Lines.Add('请稍后，------------------- 正在等待反馈信息... ...');
ReadLen:=IdFTCPClient.ReadInteger;
Memo1.Lines.Add('====================================================');
Memo1.Lines.Add(IdFTCPClient.ReadString(ReadLen));
Memo1.Lines.Add('%--------------------------------------------------'+
'-----------------------------% 完毕:'+DateTimeToStr(Now));
end;
Memo2.Clear;
end;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
if application.MessageBox('您真的要删除所有的用户信息吗？'+#13#10+
'包括所有用户组信息！','网络尖兵',MB_OKCANCEL+MB_ICONWARNING)=IDOK then
ClearAllInfo(UserCDS);
end;
procedure TForm1.Panel11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Panel4.Width=1 then
Panel4.Width:=188;
end;
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if Screen.Cursor=crAppStart then exit;//如果程序运行则退出
ListView1.ReadOnly:=True;
isRemoteStat:=isRemoteHost(TreeView1);
if not isRemoteHost(Treeview1) then
begin
Label5.Caption:='浏览我的电脑';
if ComboBox1.Text='' then ComboBox1.Text:='C:\';
Screen.Cursor:=crAppStart;
LocalDirSet(TreeView1,ComboBox1);
Screen.Cursor:=crDefault;
end else
begin
//执行远程操作
Label5.Caption:='浏览远程电脑:'+Edit2.Text;
Screen.Cursor:=crAppStart;
RemoteDirSet(TreeView1,ComboBox1);
Screen.Cursor:=crDefault;
if ComboBox1.Text='' then ComboBox1.Text:='远程电脑';
end;
if TreeView1.Selected.HasChildren=false then
TreeView1DblClick(self);
end;
procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
if Screen.Cursor=crAppStart then exit;//如果程序运行则退出
ToolButton22.Enabled:=True;
isRemoteStat:=isRemoteHost(TreeView1);
if not isRemoteHost(Treeview1) then //如果是本地主机则
begin
Screen.Cursor:=crAppStart;
OpenLocalDirFile(TreeView1,ListView1,ComboBox1);
TreeView1.Selected.Expanded:=True;
Screen.Cursor:=crDefault;
end else
begin
if TreeView1.Selected=nil then exit;
if IdFTCPClient.Connected then
begin//=================
if LeftStr(TreeView1.Selected.Text,8)='远程电脑' then//如果是根
begin
try
Screen.Cursor:=crAppStart;
IdFTCPClient.Write('磁盘目录'+EOL);//send获取根目录信息cmd
//接收信息并处理=============
RemoteProcDiskInfo(TreeView1,IdFTCPClient);
TreeView1.Selected.Expanded:=True;
Screen.Cursor:=crDefault;
except
Screen.Cursor:=crDefault;
Exit;
end;
exit;
end;
if TreeView1.Selected.Parent=nil then exit;
if LeftStr(TreeView1.Selected.Parent.Text,8)='远程电脑' then//如果是磁盘
begin
try
Screen.Cursor:=crAppStart;
IdFTCPClient.Write('目录文件'+EOL);//send获取目⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -