小王在整理硬盘，一些不常用的代码要删除，在这里留个备份。

procedure TForm1.Button1Click(Sender: TObject);
begin
 i:=strtoint(edit1.Text);
j:=strtoint(edit2.Text);
 for i:=strtoint(edit1.Text) to j do
  begin
  sleep(8000);
   StrUrl:='http://www.'+Trim(inttostr(i))+'.cn/?www.5iadmin.com;
  ShellExecute(0,'open',pchar(StrUrl),nil,nil,SW_SHOW);
  end;
end;

文章如转载，请注明转载自：http://www.5iadmin.com/post/959.html