[Neftali [Germán.Estévez]]

Empezado por Jose Manuel

...y en el primer paso, me gustaría no descargar el programa, sino leer el contenido de un fichero de texto y pasarlo una variable.

Es que en el primer paso no dice que descargues el programa, sino descargar el fichero de texto para leerlo.

Empezado por Jose Manuel

...como se podría descarga un fichero de texto de forma que no pregunte al usuario si lo quiere guardar o abrir.

Pon un botón en un formulario y añade este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  b:Boolean;
  TS:TStrings;
  Str:String;

  //----------------------------------------------------------------------------
  function DownloadFile(Source, Dest: string): Boolean;
  begin
    // proteccion
    try
      Source := AnsiReplaceStr(Source, '/', '\');
      Result := UrlDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;
    except
      Result := False;
    end;
  end;
  //----------------------------------------------------------------------------
begin

  // descargar
  b := DownloadFile('http://neftali.clubdelphi.com/temp/test_vrs.txt',
                    'c:\temp\test_vrs.txt');
  // correcto?
  if (b) then begin
    // Crear TStrings
    TS := TStringList.Create();
    // Coger la version
    TS.LoadFromFile('c:\temp\test_vrs.txt');
    Str := TS[1];
    // Avisar
    MessageDlg('Versión en el Servidor: ' + Str, mtInformation, [mbOK], 0);
    // Liberar
    TS.Free;
  end;
end;

Tendrás que añadir al uses las units StrUtils y urlMon.
Este código descarga el fichero TXT (del que hablamos más arriba) y lee la línea 1 (que contiene la versión).