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

Version imprimable

Bonjour,

J'aimerais recupérer le numéro du HD local, j'ai cette fonction qui marche sous Delphi 4 :

Code:

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

Citation:

[Erreur] Menu.pas(55): E2089 Transtypage incorrect

La ligne surligné est : ' , BufferNomVolume'.

Merci

26/04/2005, 14h16
cpdump

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.
26/04/2005, 14h33
/dev/null

Remplace ton BufferNomVolume par @BufferNomVolume[0]
26/04/2005, 14h34
Stef.web

As tu la définition de ta fonction ex:

Code:

Function toto( A:String; b:Integer):boolean;
26/04/2005, 14h55
Harry

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

Trouvé, voici comment il faut refaire la fonction :

Code:

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

Code:

System.Text

dans l'USES.

Merci pour vos idées et A++