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 :

[Delphi 2005] Comment récupérer le numéro du disque dur ?


Sujet :

API, COM et SDKs Delphi

  1. #1
    Membre expérimenté
    Avatar de Harry
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Juillet 2002
    Messages
    1 224
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2002
    Messages : 1 224
    Points : 1 331
    Points
    1 331
    Par défaut [Delphi 2005] Comment récupérer le numéro du disque dur ?
    Bonjour,

    J'aimerais recupérer le numéro du HD local, j'ai cette fonction qui marche sous Delphi 4 :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    function TMenuPrincipal.NumeroSerieDisque(RepertoireRacine : string ) : string ;
    var
      NumeroSerieVolume : DWord;
      TailleMaxiNom, OptionsSysteme : DWord;
      NomSystemeFichier : array [0..255] of Char;
      BufferNomVolume : array [0..255] of Char;
    begin
      Result := '' ;
      if GetVolumeInformation(PChar(RepertoireRacine)
                              , BufferNomVolume
                              , sizeof( BufferNomVolume )
                              , @NumeroSerieVolume
                              , TailleMaxiNom
                              , OptionsSysteme
                              , NomSystemeFichier   // FAT or NTFS
                              , sizeof( NomSystemeFichier )
                              ) then
      begin
        Result := IntToStr(NumeroSerieVolume);
      end ;
    end;
    Sous delphi 2005, dans un projet VCL j'ai l'erreur
    [Erreur] Menu.pas(55): E2089 Transtypage incorrect
    La ligne surligné est : ' , BufferNomVolume'.

    Merci

    Attention le .NET sur PDA peut causer des chutes de cheveux

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    298
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2003
    Messages : 298
    Points : 318
    Points
    318
    Par défaut
    Pour plus d'info: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/getvolumeinformation.asp

    Soit dit en passer, cela retourne le numéro de série de la partition et non pas du disque physique.

  3. #3
    Membre actif
    Profil pro
    ----
    Inscrit en
    Mai 2004
    Messages
    185
    Détails du profil
    Informations personnelles :
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : ----

    Informations forums :
    Inscription : Mai 2004
    Messages : 185
    Points : 245
    Points
    245
    Par défaut
    Remplace ton BufferNomVolume par @BufferNomVolume[0]
    De toutes les choses que j'ai perdue,
    Celle qui me manque le plus...
    c'est mon esprit !

  4. #4
    Membre régulier
    Avatar de Stef.web
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2003
    Messages
    104
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Août 2003
    Messages : 104
    Points : 87
    Points
    87
    Par défaut
    As tu la définition de ta fonction ex:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Function toto( A:String; b:Integer):boolean;

  5. #5
    Membre expérimenté
    Avatar de Harry
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Juillet 2002
    Messages
    1 224
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2002
    Messages : 1 224
    Points : 1 331
    Points
    1 331
    Par défaut
    cpdump : oui, j'ai vu, la fonction est aussi dans l'aide de delphi, et ca marche sous delphi 4, mais en 2005 VCL, ca marche pas. Et en passant c'est la fonction que j'utilise et que j'ai montré dans mon premier post.

    /dev/null : j'essaye ton idée mais ca marche pas.

    Stef.web : oui, oui, elle est déclarée, et ca planterai sur la declaration si c'était faux.

    quand je passe la souris sur 'GetVolumeInformation' D 2005 me dit que cette var, BufferNomVolume, est supposé être de type StringBuilder, j'ai donc essayé d'ajouter System.Text dans l'uses pour le declarer en tant que StringBuilder, mais ca fait exactement la meme chose :/

    Bon, cela dit c'est pas la fin du monde, j'utiliserai un autre identifiant que celui du disque dur...

    Attention le .NET sur PDA peut causer des chutes de cheveux

  6. #6
    Membre expérimenté
    Avatar de Harry
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Juillet 2002
    Messages
    1 224
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2002
    Messages : 1 224
    Points : 1 331
    Points
    1 331
    Par défaut
    Trouvé, voici comment il faut refaire la fonction :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    function TMenuPrincipal.NumeroSerieDisque(RepertoireRacine : string ) : string ;
    var
      TailleMaxiNom, OptionsSysteme, NumeroSerieVolume : UInt32;
      NomSystemeFichier : StringBuilder;
      BufferNomVolume : StringBuilder;
    begin
      Result := '' ;
      if GetVolumeInformation(RepertoireRacine
                              , BufferNomVolume
                              , sizeof(BufferNomVolume)
                              , NumeroSerieVolume
                              , TailleMaxiNom
                              , OptionsSysteme
                              , NomSystemeFichier   // FAT or NTFS
                              , sizeof( NomSystemeFichier )
                              ) then
      begin
        Result := IntToStr(NumeroSerieVolume);
      end ;
    end;
    et il vous faut dans l'USES.

    Merci pour vos idées et A++

    Attention le .NET sur PDA peut causer des chutes de cheveux

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

Discussions similaires

  1. [C#] Comment récupérer le numéro de semaine d'une date ?
    Par farfadet dans le forum Windows Forms
    Réponses: 9
    Dernier message: 17/07/2013, 17h33
  2. [Delphi 2005 ] Comment récupérer la taile d'un fichier ?
    Par babyface dans le forum Composants VCL
    Réponses: 2
    Dernier message: 23/11/2005, 21h20
  3. [Delphi 2005] Comment parcourir la liste des fichiers ?
    Par babyface dans le forum Langage
    Réponses: 2
    Dernier message: 30/06/2005, 12h01
  4. Comment récupérer le numéro de la semaine ?
    Par claude dans le forum Langage
    Réponses: 7
    Dernier message: 25/06/2004, 16h06

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