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
Merci Beaucoup SergioMaster
Merci beaucoup SergioMaster,
You're the best !!!