Conexion con el Servidor

[[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