Discussion :

[bvsud]

Bonjour à tous

Comment savoir si un prog est lancé depuis un disque dur sur port USB ?

J'ai trouvé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Function RemovableDrive(Drive: char): Boolean;
begin
   Result := (Windows.GetDriveType(PChar(Drive + ':\')) = Windows.Drive_Removable);
end;

J'appelle la fonction (le prog de test est bien sur un dd usb) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  Rep_Courant := GetCurrentDir;
  Lect := ExtractFileDrive(Rep_Courant);
  Drive := Lect[1];
 
  if RemovableDrive(Drive) then Form1.Memo1.Lines.Add('LECTEUR ACTUEL : OUI');

... et la fonction me répond que non.


Il y a forcément un moyen ?
Merci

[ShaiLeTroll]

les balises codes c'est [CODE]...[/CODE]

Sinon GetCurrentDir est-il sur le périphérique USB ou un autre chemin (comme le dossier de démarrage pour un raccourci)
Application.ExeName ne change pas en cours de route


j'ai plus souvent utilisé DRIVE_REMOTE avec GetDriveType car j'avais une problématique plutôt réseau vs Local que USB vs Local, cela fonctionnait bien de mémoire

Pourquoi une telle encapsulation avec ce Char qui pourrait nuire à d'autres cas ?
On peut monter un disque au niveau logique d'un autre disque physique, du coup le chemin compte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Function RemovableDrive(const APath: string): Boolean;
begin
   Result := (Windows.GetDriveType(PChar(ExtractFilePath(APath))) = Windows.DRIVE_REMOVABLE);
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  if RemovableDrive(Application.ExeName) then 
    Form1.Memo1.Lines.Add('LECTEUR AMOVIBLE: OUI');

un petit code de vérification un peu bâclé

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
 
var
  FN: string;
 
  iLetter: Integer;
  DrivePath: string;
const
  DT: array[DRIVE_UNKNOWN .. DRIVE_RAMDISK] of string =
    ('Inconnu', 'Chemin invalide', 'Amovible', 'Fixe', 'Serveur Distant', 'Disque CD', 'RAM');
begin
  for iLetter := Ord('A') to Ord('Z') do
  begin
    DrivePath := Chr(iLetter) + ':\';
    if GetDriveType(PChar(DrivePath)) > DRIVE_NO_ROOT_DIR then
      FN := FN + DrivePath + ':' + DT[GetDriveType(PChar(DrivePath))] + #13#10;
  end;
  FN := FN + ParamStr(0) + ':' + DT[GetDriveType(PChar(ExtractFilePath(ParamStr(0))))] + #13#10;
  ShowMessage(FN);

Code ShowMessage :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
----------------------------
getdcu
---------------------------
C:\:Fixe
D:\:Fixe
E:\:Disque CD
R:\:Serveur Distant
S:\:Serveur Distant
W:\:Serveur Distant
D:\Mon\Sous\Dossier\src\bin\getDCU.exe:Fixe
 
---------------------------
OK   
---------------------------

[bvsud]

Bonjour Shaire :hello:

Je vais potasser ça.
Et je donne le retour.

La réponse a fusé Mais j'étais en rendez-vous.

J'en déduis que c'est donc réalisable. Formidable !

[ShaiLeTroll]

Après faut voir comment est monté le disque USB,
est-ce qu'il y a une différence entre une clé et un DD,
est-ce que la norme USB (1, 2, ou 3) peut influencer sur le fait que le disque est bien détecté comme amovible, le disque DD lorsqu'il est connecté,
est-ce qu'un Driver est lancé au passage
Des questions ... encore des questions


[HS]
@bvsud
Mon pseudo c'est ShaiLeTroll soit du CamelCase\PascalCase donc à lire Shaï Le Troll (à prononcer Shy Le Troll)
j'évite le ï dans un login, cela ne passe par partout ... et historiquement en 1999 à la création de ma boite mail, je ne savais pas tapé un ï
cela vient de Shaï Hulud de Dune quoi qu'elle aurait pû être musicale même si pour du metalcore, je ne suis pas fan de la voix ... la voix du dehors ...

D'où te vient ce "Shaire" est un mélange de Shaï et Share ?
[/HS]

[bvsud]

Bonjour.

La routine fonctionne... mais, lancé depuis un dd sur port usb (USB3) : il a le culot de m'afficher que ce drive est fixe, pas amovible.

Résultat :

[ShaiLeTroll]

Faut passer un cran au dessus Displaying Volume Paths puis utiliser le WMI genre Win32_DiskDrive.Qualifiers pour avoir des informations sur les ports HID, les montages NTFS ...
Tient ce code semble pas mal : How obtain the source of the WMI Data