execcmd.dpr.~2~

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

program ExecCMD;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  ShellAPI,
  Windows;

var
  sl : tstringList;
  i : integer;
begin if ParamCount>=1 then begin
  sl := tstringList.Create;
  sl.LoadFromFile(ParamStr(1));
  for i:=0 to sl.Count-1 do begin
    ShellAPI.ShellExecute(0,nil,PChar(sl[i]),'','',SW_Show);
  end;
end;Halt(0);end.