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.

Código Delphi [-]
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