ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

la méthode la plus simple pour avoir le numéro de série d'un disque dur   



L'auteur

lotfi072003
Algérie Algérie
Membre Simple
# 0000000489
enregistré le 20/07/2005

http://www.oasis-gestion.com
abdelatif belguidoum
Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes > HD

la méthode la plus simple pour avoir le numéro de série d'un disque dur
# 0000000316
ajouté le 08/05/2006 23:17:38 et modifié le 19/05/2006
consulté 5839 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0
VFP 3.0
FPW 2.6
FPD 2.x

Description

Cette méthode est faite pour obtenir le numéro de série d'un disque dur sans utiliser de DLLs, uniquement avec des commandes FOX.

Code source :
CREAT TABLE TEMP FREE (COMPTE    C(50))

IF !FILE("vol.GLL")                            && le fichier qui contient reception les information
        RUN VOL C: > vol.GLL                  && obtenu a l'execution de la commande run
ELSE
      APPEND FROM vol.GLL SDF
      DELETE ALL FOR EMPTY(COMPTE)   && ecraser l'enregistrement vierge
ENDIF

GO TOP
LVOLNAME   = ALLTRIM(COMPTE)  && linge nom du volume
SKIP
LVOLSERIAL = ALLTRIM(COMPTE)  && ligne numero de serie
BROW
LSERIE_l     = SUBSTR(LVOLSERIAL,RAT(LMOIN,LVOLSERIAL)-4)   && localiser le numero de serie
WAIT WINDOW LSERIE_l           && le numero serie obtenu en hexadecimal

***************end lotfi prog

Commentaires
le 09/05/2006, eddymaue a écrit :
tu peux remplacer -> SUBSTR(LVOLSERIAL,RAT(LMOIN,LVOLSERIAL)-4)

par

SUBSTR(LVOLSERIAL,RAT(" ",LVOLSERIAL))

pour corriger une p'tite erreur qui ce produit chez moi

le 09/05/2006, eddymaue a écrit :
ha aussi tu peux aussi écrire

CREAT cursor TEMP (COMPTE C(50))

au lieu de

CREAT TABLE TEMP FREE (COMPTE C(50))

le 09/05/2006, lotfi072003 a écrit :
merci eddymaue
comme tu veut ok

le 10/05/2006, Olivier Hamou a écrit :
Salut lotfi !

C'est tres bien d'avoir rajouté sur atoutfox
A tres bientot
Olivier


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3