Savoir si mon prog est lancé depuis une dd USB

Bonjour à tous :)

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

J'ai trouvé ça :

Code:

---

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:

---

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 ;)

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:

---

1 2 3 4 5

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

---

Code:

---

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:

---

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:

---

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

---

Bonjour Shaire :hello:

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

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

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

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 ï :ptdr::aie:
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]

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 :

Pièce jointe 593011

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