Download File From Internet

uses

  URLMon, ShellApi;

function DownloadFile(SourceFile, DestFile: string): Boolean;

begin

  try

    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;

  except

    Result := False;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

const

  // URL Location

  SourceFile = ''http://www.google.com/intl/de/images/home_title.gif'';

  // Where to save the file

  DestFile = ''c:\temp\google-image.gif'';

begin

  if DownloadFile(SourceFile, DestFile) then

  begin

    ShowMessage(''Download succesful!'');

    // Show downloaded image in your browser

    ShellExecute(Application.Handle, PChar(''open''), PChar(DestFile),

      PChar(''''), nil, SW_NORMAL)

  end

  else

    ShowMessage(''Error while downloading '' + SourceFile)

end;

// Minimum availability: Internet Explorer 3.0

// Minimum operating systems Windows NT 4.0, Windows 95