client.dpr

来自「海盗远控1.23源代码」· DPR 代码 · 共 104 行

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.