Discussion :

[lou_delphdev]

Bonjour tout le monde!
Existe-il une fonction ou une procedure en delphi ki permet d'avoir le N° de serie d'une clé usb, pour q'en suite la metre sur le caption d'un panel ou label ou...., en attente urgente d'une réponse !
Merci d'avnce

[ero-sennin]

Salut,

Tu peux aller voir ce thread. A la fin de la discussion (page 5, post 65) il y a le code source du composant (et un paquet dispo : D7 ) avec une démo afin de comprendre le fonctionnement ...

Si ça peut t'aider ...
A+

PS:
Ton titre ne correspond pas trop à ta demande ... Je mettrai :

Comment récupérer le numéro de série d'une clé USB connecté

que

Générer le N° de série d'une clé USB

[bubulemaster]

Pour avoir le numéro de série de n'importe quel disque

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit PSerialC;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Bevel1: TBevel;
procedure Button1Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Function SerialNum(FDrive:String) :String;
Var
Serial:DWord;
DirLen,Flags: DWord;
DLabel : Array[0..11] of Char;
begin
Try
GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0);
Result := IntToHex(Serial,8);
Except
Result :='';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:= SerialNum(edit2.Text)
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Length(edit2.text)>0 then key :=#0
end;
end.

[ero-sennin]

Salut,

Oui, il suffit uniquement de faire un GetVolumeInformation :

Un petit tour dans la FAQ est le tour est joué