Discussion :

[lotfi.lahcene]

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 :

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

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

[SergioMaster]

Bonjour,

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

Code :

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

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/

[lotfi.lahcene]

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