Declarar GetHostByName ws2_32.dll versión 12.5?

A ver si se les ocurre que puede estar pasando. Les comento. He migrado una aplicación de PB 9 a PB12.5. En esta aplicación hay una ventana para enviar mails donde hace llamada a la función gethostname de la libreria ws2_32.dll. En la versión 9 me funciona perfectamente pero en la versión 12.5 no funciona. Me devuelve un 0.
He probado a declararlas de las dos formas siguientes:

Function ulong gethostbyname ( string name ) Library "ws2_32.dll"

Function ulong gethostbyname ( string name ) Library "ws2_32.dll" Alias For "gethostbyname;Ansi"

Pero no consigo que funcione.

¿Alguna idea?