client.dpr

海盗远控1.23源代码

program client;

{$R 'server.res' 'server.rc'}

uses
  Forms,
  windows,
  main in 'main.pas' {ViKing},
  Splash in 'Splash.pas' {SplashForm},
  UpIp in 'UpIp.pas' {UpIpDate},
  AboutUnit in 'AboutUnit.pas' {AboutForm},
  CongigServerUnit in 'CongigServerUnit.pas' {ConfigServer},
  ShowPic in 'ShowPic.pas' {ShowPm},
  UpDownFrom in 'UpDownFrom.pas' {UpDownFileForm},
  VideoUnit in 'VideoUnit.pas' {VideoForm},
  RegEditUnit in 'RegEditUnit.pas' {RegEdit},
  RegHexEdit in 'RegHexEdit.pas' {RegHex},
  ExeToolUnit in 'ExeToolUnit.pas' {Exetool},
  IconLibrary in 'icotool\IconLibrary.pas',
  IconTools in 'icotool\IconTools.pas',
  IconTypes in 'icotool\Icontypes.pas',
  unitExIcon in 'icotool\unitExIcon.pas',
  unitPEFile in 'icotool\unitPEFile.pas',
  unitResourceDetails in 'icotool\unitResourceDetails.pas',
  unitResourceGraphics in 'icotool\unitResourceGraphics.pas',
  LangFrm in 'Langmgr\LangFrm.pas',
  LangMgr in 'Langmgr\LangMgr.pas',
  LangObj in 'Langmgr\LangObj.pas',
  AttribUnit in 'AttribUnit.pas' {AttribForm},
  SysInf in 'SysInf.pas' {SysShezhi},
  DlgshowUnit in 'DlgshowUnit.pas';

{$R *.res}

begin
  Application.Initialize;

  SplashForm:=TSplashForm.Create(Application);
  SplashForm.Show;
  ShowWindow(Application.Handle, SW_HIDE);
  SplashForm.Update;

  Application.Title := '海盗远控' ; //  Translate('TSplashForm','Title') DeCryptStr('A470DE932E4721C6',Head)
  SplashForm.Gauge1.Progress:=5;
  SplashForm.Update;

  Application.CreateForm(TViKing, ViKing);
  SplashForm.Gauge1.Progress:=25;
  SplashForm.Update;

  Application.CreateForm(TUpIpDate, UpIpDate);
  SplashForm.Gauge1.Progress:=30;
  SplashForm.Update;

  Application.CreateForm(TConfigServer, ConfigServer);
  SplashForm.Gauge1.Progress:=35;
  SplashForm.Update;

  Application.CreateForm(TAboutForm, AboutForm);
  SplashForm.Gauge1.Progress:=40;
  SplashForm.Update;

  Application.CreateForm(TShowPm, ShowPm);
  SplashForm.Gauge1.Progress:=45;
  SplashForm.Update;

  Application.CreateForm(TUpIpDate, UpIpDate);
  SplashForm.Gauge1.Progress:=50;
  SplashForm.Update;

  Application.CreateForm(TExetool, Exetool);
  SplashForm.Gauge1.Progress:=55;
  SplashForm.Update;

  Application.CreateForm(TRegHex, RegHex);
  SplashForm.Gauge1.Progress:=60;
  SplashForm.Update;

  Application.CreateForm(TRegEdit, RegEdit);
  SplashForm.Gauge1.Progress:=65;
  SplashForm.Update;

  Application.CreateForm(TVideoForm, VideoForm);
  SplashForm.Gauge1.Progress:=70;
  SplashForm.Update;

  Application.CreateForm(TUpDownFileForm, UpDownFileForm);
  SplashForm.Gauge1.Progress:=75;
  SplashForm.Update;

  Application.CreateForm(TSysShezhi, SysShezhi);
  SplashForm.Gauge1.Progress:=80;
  SplashForm.Update;

  Application.CreateForm(TAttribForm, AttribForm);
  SplashForm.Gauge1.Progress:=85;
  SplashForm.Update;

  Application.ProcessMessages;

  SplashForm.Free;
  Application.Run;
end.