Hola, muchas gracias, le estube "pegando una hojeada" y me parece muy bueno.
Al querer compilarlo me tiro un error en la linea 374:
Código Delphi
[-] if Shutdown(FSocket, SD_SEND) <> SOCKET_ERROR then
repeat until recv(FSocket, buf, sizeof(buf) - 1, 0) <= 0;
CloseSocket(FSocket);
Me dice que el identificador
SD_SEND no esta identificado.
Tengo Delphi 5.
Bytes!!