Gérer alimentation USB?

**jojo86** · 19/09/2010, 17h18

Bonjour,

Je voudrais savoir s'il est possible de lister les ports usb et de couper l'alimentation electrique d'un port usb ou de la réactiver?

Merci de votre aide.

**NABIL74** · 19/09/2010, 19h05

Envoyé par jojo86

Bonjour,

Je voudrais savoir s'il est possible de lister les ports usb et de couper l'alimentation electrique d'un port usb ou de la réactiver?

Merci de votre aide.

salut,

pour avoir la liste des ports USB connectés au PC, il faut voir du côté de WMDeviceChange.
pour ce qui est la déconnexion d'un port, je te propose ce code (non testé)

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Forms, 
  Dialogs, StdCtrls, ShlObj, Controls, CheckLst, ExtCtrls; 
 
type 
  TRetirerUSB = class(TForm) 
    Eject: TButton; 
    ListeUSB: TCheckListBox; 
    Label1: TLabel; 
    procedure EjectClick(Sender: TObject); 
    procedure FormActivate(Sender: TObject); 
  private 
    { Déclarations privées } 
    Procedure EtatConnectionUSB(var Msg: TMessage);Message $0219; 
  public 
    { Déclarations publiques } 
  end; 
 
var 
  RetirerUSB               : TRetirerUSB; 
  LettreVolume,Volume : String; 
implementation 
 
{$R *.dfm} 
 
Procedure TRetirerUSB.EtatConnectionUSB(var Msg: TMessage); 
//Vient de Dbt.h 
Type 
  DEV_BROADCAST_HDR     = ^PDEV_BROADCAST_HDR; 
    PDEV_BROADCAST_HDR  = packed record 
      dbch_size         : DWORD; 
      dbch_devicetype   : DWORD; 
      dbch_reserved     : DWORD; 
  end; 
 
  DEV_BROADCAST_VOLUME    = ^PDEV_BROADCAST_VOLUME; 
    PDEV_BROADCAST_VOLUME = packed record 
      dbcv_size           : DWORD; 
      dbcv_devicetype     : DWORD; 
      dbcv_reserved       : DWORD; 
      dbcv_unitmask       : DWORD; 
      dbcv_flags          : WORD; 
  end; 
var 
  C:Integer; 
begin 
  //Déconnexion physique 
  if Msg.wParam = $8004 then 
    if DEV_BROADCAST_HDR(Msg.LParam)^.dbch_devicetype=2 then 
      if DEV_BROADCAST_VOLUME(Msg.LParam)^.dbcv_flags=0 then 
      begin 
        Str(Ln(DEV_BROADCAST_VOLUME(Msg.LParam)^.dbcv_unitmask)/Ln(2)+Ord('A'):2:0,LettreVolume); 
        LettreVolume:=Char(StrToInt(LettreVolume)); 
        For c:=0 to ListeUSB.Count-1 do 
        begin 
          //Suppression du volume de la liste 
          Volume:=ListeUSB.Items.Strings[c]; 
          if Volume[1]=LettreVolume then 
          begin 
            ListeUSB.Items.Delete(c); 
            Break; 
          end; 
        end; 
      end; 
  //Connexion physique 
  if Msg.wParam = $8000 then 
    if DEV_BROADCAST_HDR(Msg.LParam)^.dbch_devicetype=2 then 
      if DEV_BROADCAST_VOLUME(Msg.LParam)^.dbcv_flags=0 then 
      begin 
        //Ajout du nouveau volume dans la liste 
        Str(Ln(DEV_BROADCAST_VOLUME(Msg.LParam)^.dbcv_unitmask)/Ln(2)+Ord('A'):2:0,LettreVolume); 
        LettreVolume:=Char(StrToInt(LettreVolume)); 
        ListeUSB.Items.Add(LettreVolume+':\ Connected'); 
      end; 
end; 
 
Function EjectUSB(LettreLecteur:String;Tempo:Integer=0;NbdeFois:Integer=1):Boolean; 
const 
  //Les paramètres suivants viennent de WinIoCtl.h 
  FSCTL_LOCK_VOLUME           = ($00000009 shl 16) or ($0000 shl 14) or (00006 shl 2) or 0; 
  FSCTL_DISMOUNT_VOLUME       = ($00000009 shl 16) or ($0000 shl 14) or (00008 shl 2) or 0; 
  IOCTL_STORAGE_MEDIA_REMOVAL = ($0000002d shl 16) or ($0001 shl 14) or ($0201 shl 2) or 0; 
  IOCTL_STORAGE_EJECT_MEDIA   = ($0000002d shl 16) or ($0001 shl 14) or ($0202 shl 2) or 0; 
  FSCTL_UNLOCK_VOLUME         = ($00000009 shl 16) or ($0000 shl 14) or (00007 shl 2) or 0; 
Type 
  TPREVENT_MEDIA_REMOVAL  = record 
      PreventMediaRemoval : ByteBool; 
end; 
var 
  HandleVolume        : THandle; 
  FormatLettreLecteur : String; 
  lpBytesReturned     : DWORD; 
  PreventRemoval      : TPREVENT_MEDIA_REMOVAL; 
  T                   : Integer; 
begin 
  LettreLecteur:=Uppercase(LettreLecteur); 
  FormatLettreLecteur:=Format('%s:',[LettreLecteur]); 
  Result:=False; 
  case GetDriveType(PChar(FormatLettreLecteur)) of 
    DRIVE_REMOVABLE: 
    begin 
      //Mise en place du format désirer 
      FormatLettreLecteur:=Format('\\.\%s:',[LettreLecteur]); 
      PreventRemoval.PreventMediaRemoval:=False; 
      //Création du volume 
      HandleVolume:=CreateFile(PChar(FormatLettreLecteur),GENERIC_READ or GENERIC_WRITE, 
                                FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0); 
      //Verrouillage du volume 
      for T := 0 to NbdeFois do 
      begin 
        if DeviceIoControl(HandleVolume,FSCTL_LOCK_VOLUME, nil,0,nil,0,lpBytesReturned,nil) then 
        begin 
          //Démontage du volume 
          DeviceIoControl(HandleVolume,FSCTL_DISMOUNT_VOLUME, nil,0,nil,0,lpBytesReturned,nil); 
          //Control du volume 
          DeviceIoControl(HandleVolume,IOCTL_STORAGE_MEDIA_REMOVAL, 
                          @PreventRemoval,SizeOf(TPREVENT_MEDIA_REMOVAL),nil,0,lpBytesReturned,nil); 
          //Ejection du volume 
          DeviceIoControl(HandleVolume,IOCTL_STORAGE_EJECT_MEDIA,nil,0,nil,0,lpBytesReturned,nil); 
          //Déverrouillage du volume 
          Result:=DeviceIoControl(HandleVolume,FSCTL_UNLOCK_VOLUME,nil,0,nil,0,lpBytesReturned,nil); 
          FormatLettreLecteur:=Format('%s:\',[LettreLecteur]); 
          //Avertir le système que l'USB est demonter 
          ShChangeNotify(SHCNE_MEDIAREMOVED,SHCNF_PATH,PChar(FormatLettreLecteur),Nil); 
          Break; 
        end 
        else 
        begin 
          Result:=False; 
          Sleep(Tempo); 
        end; 
      end; 
      //Libération volume 
      CloseHandle(HandleVolume); 
    end 
    else 
      Result:=False; 
  end; 
end; 
 
procedure TRetirerUSB.EjectClick(Sender: TObject); 
var 
  I : Integer; 
begin 
  Volume:=''; 
  for I:=0 to ListeUSB.Count-1 do 
  begin 
    if ListeUSB.Checked[i] then 
    begin 
      Volume:=ListeUSB.Items.Strings[i]; 
      //Ejection des volumes selectionner,avec 3 tentatives en cas d'échec, espacé de 2000 ms 
      If EjectUSB(Volume[1],2000,3) then 
      begin 
        MessageDlg('Le périphérique USB-Lecteur '+Volume[1]+' peut-être retirer en toute sécurité!',mtInformation,[mbOk],0); 
        ListeUSB.Items.Strings[i]:=Volume[1]+':\ Waiting for extraction' 
      end 
      else 
        MessageDlg('Le périphérique USB-Lecteur '+Volume[1]+' ne peut pas être retirer !'+ 
                    #13#10+#13#10+ 
                   'Cause possible :'+#13#10+#13#10+ 
                   '- le lecteur '+Volume[1]+' est en cours d''utilisation.'+#13#10+ 
                   '- le lecteur '+Volume[1]+' n''existe pas.'+#13#10+ 
                   '- le lecteur '+Volume[1]+' a un problème inconnu.',mtWarning,[mbOk],0); 
    end; 
  end; 
end; 
 
Procedure ListeLecteurs(Lecteurs:TStrings;Types:Integer); 
var 
  Num   : integer; 
  Bits  : set of 0..25; 
  Disque: String; 
begin 
  //Récupération du nombres de disques logiques 
  integer(Bits):=GetLogicalDrives; 
  //Récupération des lettres des ports choisi ici DRIVE_REMOVABLE 
  for Num := 0 to 25 do 
    if Num in Bits then 
    begin 
      Disque:=Char(Num+Ord('A'))+':'; 
      if Types=GetDriveType(PChar(Disque)) then 
        Lecteurs.Append(Char(Num+Ord('A'))+':\ Connected'); 
    end; 
end; 
 
procedure TRetirerUSB.FormActivate(Sender: TObject); 
begin 
  ListeUSB.Clear; 
  ListeLecteurs(ListeUSB.Items,DRIVE_REMOVABLE); 
end; 
 
end.

A+

NABIL74

**jojo86** · 19/09/2010, 20h44

Salut et merci de ton aide.

Mais je ne souhaite pas déconnecter un lecteur réseaux, mais vraiment couper l'alimentation de mon port usb.

C'est en faite pour activer/Désactiver une tablette qui ventile le dessous de mon pc portable...

Je ne souhaite pas que le ventilateur tourne en continu, je voulais donc déclencher la ventilation de temps en temps...

Gérer alimentation USB?

Delphi

Vue hybride

Discussions similaires

Partager

Partager