execcmd.dpr.~7~

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

program ExecCMD;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  ShellAPI,
  Windows,
  TLHelp32;
function TermProg(const exename:string):integer;
var
  mSnapShot: THandle;
  //mProcID: THandle;
  uProcess: TProcessEntry32;
  ret: Boolean;
  s: string;
begin
  Result := 0;
  mSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //系统快照
  uProcess.dwSize := sizeof(uProcess); //初始化ProcessEntry32结构大小
  ret := Process32Next(mSnapShot, uProcess); //得到系统第一个进程
  while ret do begin
    s := lowercase(uProcess.szExeFile); //项目名称
    if (s=exename) then begin
      //mProcID := OpenProcess(PROCESS_ALL_ACCESS, True, uProcess.th32ProcessID);
      inc(Result);
    end;
    ret := Process32Next(mSnapShot, uProcess); //取得下一个进程
  end;
  CloseHandle(mSnapShot);
end;

var
  sl : tstringList;
  i,c : integer;
begin if ParamCount>=2 then begin
  sl := tstringList.Create;
  sl.LoadFromFile(ParamStr(1));
  c := StrToIntDef(ParamStr(3),10);
  for i:=0 to sl.Count-1 do begin
    ShellAPI.ShellExecute(0,nil,PChar('c:\windows\system32\cmd.exe'),PChar('/c '+ParamStr(2)+sl[i]),'',SW_MINIMIZE);
    writeln(sl[i]);
    while(TermProg('cmd.exe')>c)do sleep(1000);
  end;
end;Halt(0);end.