Socket non bloquant

Salut

j'ai trouvé sur le net un code qui commence par ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Begin Repeat Time.tv_sec := 120; Time.tv_usec := 0; FD_ZERO(FDS); FD_SET(Sock, FDS); If Select(0, @FDS, NIL, NIL, @TIME) <= 0 Then Break; Len := Recv(Sock, Buffer, 1600, 0); If (Len <= 0) Then Break;
en fait il s'agit du code d'un serveur qui utilise Winsock

le code marche très bien, hormis un petit problème que je trouve très embettant, en fait le socket est bloquant.

et le problème est que toute l'interface graphique de l'application est inaccessible une fois que le serveur est connecté :s

j'ai tenté d'utiliser ioctlsocket puisque dans la source Select n'a pas l'air de marcher, mais je n'y parviens pas :(

auriez-vous une idée ?

merci