IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

API, COM et SDKs Delphi Discussion :

Comment obtenir le nom complet d'un lecteur réseau ?


Sujet :

API, COM et SDKs Delphi

  1. #1
    Membre actif Avatar de Speed41
    Homme Profil pro
    Inscrit en
    Novembre 2002
    Messages
    718
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France

    Informations forums :
    Inscription : Novembre 2002
    Messages : 718
    Points : 210
    Points
    210
    Par défaut Comment obtenir le nom complet d'un lecteur réseau ?
    Quand on se connect à un lecteur réseau on lui attribut une lettre mais cela différe entre chaque ordi.
    Ce que je voudrais connaitre c'est comment, en indiquant la lettre du lecteur je peux obtenir le nom réel du dit lecteur
    exemple : nom du lecteur Herve sur le serveur NT10
    ==> Herve sur NT10

    J'ai essaye :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    GetVolumeInformation(PChar('G:\'),@BuffNom,SizeOf(BuffNom),@Vide,Vide,Vide,Nil,Vide);
                        showmessage(BuffNom);
    Mais je n'obtiens pas le bon résultat.

    Merci de m'aidé.

  2. #2
    Membre confirmé
    Avatar de Higgins
    Inscrit en
    Juillet 2002
    Messages
    520
    Détails du profil
    Informations forums :
    Inscription : Juillet 2002
    Messages : 520
    Points : 543
    Points
    543
    Par défaut
    Jette un oeil sur wEnumResource et WNetOpenResource dans l'API, tu pourras peut-être trouver ce qu'il te faut
    7 fois à terre, 8 fois debout

  3. #3
    Expert éminent sénior

    Avatar de Nono40
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Mai 2002
    Messages
    8 640
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2002
    Messages : 8 640
    Points : 19 101
    Points
    19 101
    Par défaut
    Utilise la fonction API WNetGetConnection :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Var RemoteNameAZT  :Array[0..80]Of Char;
        Longueur       :Cardinal;
        Retour         :Integer;
    Begin
      Longueur:=80;
      Retour:=WNetGetConnection('T:',RemoteNameAZT,Longueur);
      If (Retour=NO_ERROR) 
        Then ...
        Else RaiseLastOSError;
    Delphi :
    La F.A.Q. , 877 réponses à vos questions !
    264 sources à consulter/télécharger !

  4. #4
    Membre actif Avatar de Speed41
    Homme Profil pro
    Inscrit en
    Novembre 2002
    Messages
    718
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France

    Informations forums :
    Inscription : Novembre 2002
    Messages : 718
    Points : 210
    Points
    210
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Var RemoteNameAZT  :Array[0..80]Of Char; 
        Longueur       :Cardinal; 
        Retour         :Integer; 
    Begin 
      Longueur:=80; 
      Retour:=WNetGetConnection('T:',RemoteNameAZT,Longueur); 
      If (Retour=NO_ERROR) 
        Then ... 
        Else RaiseLastOSError;

    Génial ça marche. Merci de ton aide


+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 29/01/2006, 22h51
  2. Réponses: 6
    Dernier message: 12/07/2005, 12h20
  3. Réponses: 4
    Dernier message: 27/06/2005, 15h11
  4. Comment obtenir le nom d'un pc sur un réseau?
    Par Depteam1 dans le forum MFC
    Réponses: 2
    Dernier message: 19/02/2004, 10h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo