Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Numero de Serie do Disco duro
Message
From
24/09/2002 10:44:24
 
 
To
24/09/2002 10:34:46
General information
Forum:
Visual FoxPro
Category:
Installation, Setup and Configuration
Miscellaneous
Thread ID:
00703752
Message ID:
00703787
Views:
24
Ok , estou a entender .

Esclarece-me , por favor , só mais esta dúvida .
Eu uso , a seguinte função para saber o nº de série do disco , poderias verificar , se esta função retorna o nº já em hexadecimal , ou se eu necessito , depois de chamar esta função , aplicar a tua sugestão ?

Muito obrigado

********************
FUNCTION PegaNumeroHd

  PARAM drive
  IF pcount() = 0
      DRIVE = "c:\"
  ENDIF
 
  #DEFINE MAX_FILENAME_LEN 256
  LOCAL ser,i,j,s,s2
  DECLARE integer GetVolumeInformation in Win32API;
   string lpRootPathName,;
   string lpVolumeNameBuffer,;
   integer nVolumeNameSize,;
   integer @lpVolumeSerialNumber,;
   integer @lpMaximumComponentLength,;
   integer @lpFileSystemFlags,;
   string lpFileSystemNameBuffer ,;
   integer nFileSystemNameSize
 
  STORE 0 to ser,i,j
  STORE space(128) to s,s2
 
 
x=GetVolumeInformation(drive,s,MAX_FILENAME_LEN,@ser,@i,@j,s2,MAX_FILENAME_LEN)


Pedro Silva

world is wonderful with your help .

Previous
Next
Reply
Map
View

Click here to load this message in the networking platform