[jhonalone]

Estoy más o menos aquí en este fragmento de código

Código Delphi [-]
hFile := CreateFile(PChar(Archivo), GENERIC_WRITE, 0, nil, CREATE_ALWAYS,
    FILE_ATTRIBUTE_NORMAL, 0);
  if (hFile <> INVALID_HANDLE_VALUE) then
  begin
    hNet := InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if (hNet <> nil) then  //Si existe conexion a internet
    begin
      hUrl := InternetOpenUrl(hNet, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
      if (hUrl <> nil) then  // Existe el fichero en internet
      begin   
      FechaModiFileInternet:=FileAge(hFile);