Conexion con el Servidor

[keys]

Hola a todos. Tengo una carpeta compartida en otro equipo y este tiene clave para entrar. La pregunta es la siguiente, hay alguna forma de saber si el usuario se ha logado ya en el otro equipo y si no es así pedirle el usuario y la contraseña para abrir los caminos.

Un Saludo y gracias.

[rruz]

Aqui tienes una funcion que te va a permitir logearte a un
PC con recursos compartidos.



function Login_Network(Nombre_PC, Usuario, Clave: string): DWORD;
var
Nt: NetResource;
begin

With Nt do Begin
lpLocalName := nil;
lpRemoteName := PChar(Nombre_PC);
lpComment := nil;
lpProvider := nil;

dwScope := RESOURCE_REMEMBERED;
dwType := RESOURCETYPE_DISK;
dwDisplayType := RESOURCEDISPLAYTYPE_GENERIC;
End;

Result := WNetAddConnection2(Nt, PChar(Clave), PChar(Usuario),
CONNECT_UPDATE_PROFILE);
end;



Para saber si esta logeado o no el usuario intenta acceder a un recurso de la red y captura la excepcion (si es que se produce puedes asumir que no tienes permiso).

en este link encontraras mas informacion.

http://msdn2.microsoft.com/en-us/library/aa385413.aspx

Saludos

[keys]

Muchas gracias funciona perfectamente y es además el hilo a partir de cual tirar para poder hacer más cosas.

Un Saludo y gracias