hdsi2005.dpr

来自「sql inject HDSI3--delphi.rar」· DPR 代码 · 共 87 行

program HDSI2005;



uses
  Forms,
  IniFiles,
  SysUtils,
  shellapi,
  windows,
  Main_Unit in 'Main_Unit.pas' {Form_main},
  CJdatabase_unit in '..\猜解数据库\CJdatabase_unit.pas',
  httpgetThr in '..\猜解数据库\httpgetThr.pas',
  ThreadColumn in '..\猜解数据库\ThreadColumn.pas',
  ThreadDBName in '..\猜解数据库\ThreadDBName.pas',
  ThreadDBUser in '..\猜解数据库\ThreadDBUser.pas',
  ThreadHttpGet in '..\猜解数据库\ThreadHttpGet.pas',
  ThreadRecData in '..\猜解数据库\ThreadRecData.pas',
  nb_sqlScript in '..\nb命令执行\nb_sqlScript.pas',
  define_Unit in '..\公用代码\define_Unit.pas',
  mylistdir in 'mylistdir.pas',
  mylistdir_unit in 'mylistdir_unit.pas',
  thread_Unit3 in 'thread_Unit3.pas',
  thread_Unit in 'thread_Unit.pas',
  UnitCmd in 'UnitCmd.pas',
  db_select in 'DBselect\db_select.pas' {Form_db_select},
  Startform_Unit1 in 'Startform_Unit1.pas' {startForm},
  Thread_Reg in 'Thread_Reg.pas',
  ThreadDBSelect in '..\猜解数据库\ThreadDBSelect.pas',
  ThreadCanMult in '..\猜解数据库\ThreadCanMult.pas',
  ThreadUserPower in '..\猜解数据库\ThreadUserPower.pas',
  ThreadErrorDBName in '..\猜解数据库\ThreadErrorDBName.pas',
  ThreadErrorDBUser in '..\猜解数据库\ThreadErrorDBUser.pas',
  ThreadErrorTable in '..\猜解数据库\ThreadErrorTable.pas',
  ThreadErrorDBSelect in '..\猜解数据库\ThreadErrorDBSelect.pas',
  ThreadErrorColumn in '..\猜解数据库\ThreadErrorColumn.pas',
  ThreadACCTab in '..\猜解数据库\ThreadACCTab.pas',
  ThreadACCCol in '..\猜解数据库\ThreadACCCol.pas',
  ThreadRecDataACC in '..\猜解数据库\ThreadRecDataACC.pas',
  php_threadBack in 'php_threadBack.pas',
  Unit_update in 'update\Unit_update.pas' {Form_update},
  BlastDataFrm in 'BlastDataFrm.pas' {BlastFrm},
  ThreadGetWebDomains in 'ThreadGetWebDomains.pas',
  ThreadHttpGetHead in 'C:\Documents and Settings\Administrator\桌面\1111\ThreadHttpGetHead.pas';

// thread_sclin in 'thread_sclin.pas';

{$R *.res}

var
  inifile:TInifile;
begin

  Application.Initialize;
  Application.Title := 'HDSI2005';
  inifile:=TInifile.Create(ChangeFileExt(Application.ExeName,'.ini'));


  Application.CreateForm(TForm_main, Form_main);
  Application.CreateForm(TstartForm, startForm);
  Application.CreateForm(TBlastFrm, BlastFrm);
  Application.CreateForm(TForm_db_select, Form_db_select);
  Application.CreateForm(TForm_update, Form_update);
  startForm.Show;
  startForm.Update;
  startForm.Gauge1.Progress:=10;
  Sleep(500);
  startForm.Update;
  startForm.Gauge1.Progress:=20;
  Sleep(1000);
  startForm.Update;
  startForm.Gauge1.Progress:=40;
  Sleep(1000);
  startForm.Update;
  startForm.Gauge1.Progress:=60;
  Sleep(1000);
  startForm.Update;
  startForm.Gauge1.Progress:=80;
  Sleep(1000);
  startForm.Update;
  startForm.Gauge1.Progress:=100;
  shellexecute(application.handle,'open',pchar('http://www.jiaozhu.net'),nil,nil,sw_show);

  
  Application.Run;
end.