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
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
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 :
queComment récupérer le numéro de série d'une clé USB connecté
Générer le N° de série d'une clé USB
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.
Salut,
Oui, il suffit uniquement de faire un GetVolumeInformation :
Un petit tour dans la FAQ est le tour est joué![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager