El siguiente código baja las tiras de
Raulito el friki, en el rango especificado. Si se utiliza un rango muy grande tarda un poco así que paciencia.
Código Delphi
[-]
uses UrlMon, ShellApi;
procedure Raulito(Min, Max: Integer);
var
i: Integer;
Path: Array[0..MAX_PATH] of Char;
begin
FillChar(Path,Sizeof(Path),#0);
if GetTempPath(Sizeof(Path)-1, @Path) <> 0 then
begin
if DirectoryExists((String(Path) + 'Raulito')) or
CreateDir(String(Path) + 'Raulito') then
begin
for i:= Min to Max do
UrlDownloadToFile(nil,
PChar(Format('http://www.telefonica.net/web2/recurrente/tira/tira%d.png',[i])),
PChar(String(Path) + Format('Raulito\tira%d.png',[i])),0,nil);
Shellexecute(0,nil,PChar(String(Path) + 'Raulito'),nil,nil,SW_SHOW);
end;
end;
end;
Raulito(80,89);
Raulito(0,89);