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