Obtention du chemin de l’exécutable

Bjr every one,
(j'utilise Delphi 7 entreprise)
pour la securité de mon application, j'ai besoin que vous m'aidiez a me rappeler comment obtenir le chemin de l'executable de l'application...en d'autre termes le lecteur du disque ou est installé l'aplication qui est généralement le (C:\..)
afin d'utiliser le "GetVolumeInformation" et de là, obtenir le numéro de série et vous connaissez surement la suite...

Code:

---

1 2 3 4

for i := 66 to 90 do begin If GetVolumeInformation(pchar(char(i) + ':\'),VolName,Max_Path,@VolSerial,FileMaxLen, FileFlags,FileSysName,Max_Path) then edit1.Text:=inttostr(VolSerial);

---

mais ceci m'obtient le serial number du disque lorsqu'aucun flash disque n'est connecté...ce que je veux c'est d'avoir directement le numero de serie du disque dure meme si un flash disque ou disque dure externe est branché
en d'autres termes le numéro de serie du lecteur ou est installé l'executable de l'application .
Merci 8O

Bonjour,

le nom de l'exécutable (et son chemin complet) se trouve dans le paramètre 0.

Code:

---

1 2 3 4

var nomprog : string; begin nomprog:=paramstr(0);

---

pour obtenir le numéro de série du disque le mieux est de passer par les WMI, un peu de recherche dans le forum Delphi et la solution est dans la discussion
https://www.developpez.net/forums/d1...-d-disque-dur/

Merci beaucoup SergioMaster,
You're the best !!!