downloader.dpr.~14~

photo.163.com 相册下载器 多线程下载

program Downloader;
//library Downloader;

{$APPTYPE CONSOLE}

uses
  Windows,
  Sysutils,
  Messages,
  Down in 'Down.pas';


{$R *.res}
procedure SendData(cn : PChar);
var
  MyWindow: THandle;
  CDS: TCopyDataStruct;
  s: PChar;
begin
  MyWindow := FindWindow(cn, nil);
  if (MyWindow > 0) and (ParamCount > 0) then
  begin
    s := PChar(ParamStr(1));
    FillChar(CDS, SizeOf(TCopyDataStruct), #0);
    CDS.cbData := StrLen(s) + 1;
    CDS.lpData := s;
    SendMessage(MyWindow, WM_COPYDATA, 0, LParam(@CDS));
    //ShowWindow(MyWindow,SW_NORMAL);
    //SetForegroundWindow(MyWindow);
    //BringWindowToTop(MyWindow);
    Halt(255);
  end;
end;

var
  fn,url : string;
  count,wait : integer;
begin if ParamCount >=2 then begin
  fn := ExtractFileDir(ParamStr(0))+'\'+ParamStr(2);
  url := ParamStr(1);
  if ParamCount>2 then count := StrToIntDef(ParamStr(3),5);
  if ParamCount>3 then wait := StrToIntDef(ParamStr(4),40)*1000;



  count := DownURLToFile(PChar(url),PChar(fn), count,wait);
  if count>0 then begin Halt(count);Writeln('Err: No_File_DownLoaded .');end;

end;Halt(0);end.

export DownURLToFile;