client.dpr

delphi制作的木马源代码

program Client;

uses
  SysUtils,
  Forms,
  Splash in 'Splash.pas' {SplashForm},
  UnitMain in 'UnitMain.pas' {FormMain},
  VarUnit in 'VarUnit.pas',
  UnitManager in 'UnitManager.pas' {FormManager},
  UnitFileCallback in 'UnitFileCallback.pas' {FormCallback},
  UnitBuilder in 'UnitBuilder.pas' {FormBuilder};

{$R *.res}
var time1: TDateTime;
begin



  Application.Initialize;

  SplashForm:=TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;

  SplashForm.Gauge1.Progress:=5;
  SplashForm.Update;

  SplashForm.Gauge1.Progress:=25;
  SplashForm.Update;
  
  SplashForm.Gauge1.Progress:=30;
  SplashForm.Update;

  SplashForm.Gauge1.Progress:=40;
  SplashForm.Update;

  SplashForm.Gauge1.Progress:=50;
  SplashForm.Update;
 
  SplashForm.Gauge1.Progress:=60;
  SplashForm.Update;
  
  SplashForm.Gauge1.Progress:=70;
  SplashForm.Update;

  SplashForm.Gauge1.Progress:=80;//'加载登陆窗口...';
  SplashForm.Update;

  time1 := now;
  repeat
  until time1 + StrtoTime('00:00:3') <= now;


  SplashForm.Gauge1.Progress:=95;//'加载登陆窗口...';
  SplashForm.Update;



  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormManager, FormManager);
  Application.CreateForm(TFormCallback, FormCallback);
  Application.CreateForm(TFormBuilder, FormBuilder);


  SplashForm.Gauge1.Progress:=100;//'加载登陆窗口...';
  SplashForm.Update;

  Application.ProcessMessages;

  SplashForm.Free;

  Application.Run;
end.