gtpicad.dpr

提取网页文件图片地址,应用此工具

program GtPicAd;

uses
  Forms,
  frmmain in 'frmmain.pas' {Form1},
  Ufrmsetup in 'Ufrmsetup.pas' {FrmSetup},
  WebFileMan in 'WebFileMan.pas',
  UfrmAbout in 'UfrmAbout.pas' {FrmAbout},
  UfrmSelDir in 'UfrmSelDir.pas' {FrmSelDir},
  mydownfile in 'mydownfile.pas',
  U_Pub in 'U_Pub.pas',
  downthread in 'downthread.pas',
  flash in 'flash.pas' {FlashForm};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '网页图片地址提取器';
  FlashForm:=TFlashForm.Create(Application);{Create创建闪现窗口对象}
  FlashForm.Show;
  FlashForm.Update;
  //sleep(3000);

  Application.CreateForm(TForm1, Form1);
  FlashForm.Hide;
  FlashForm.Free;{Free从内存中释放对象}
  Application.Run;
end.