drivinfo.prg

来自「吐血贡献纺织上的进销存原码,功能齐全,给大家吧.」· PRG 代码 · 共 29 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: DRIVINFO.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-



PROCEDURE drivinfo
 DECLARE INTEGER GetVolumeInformation IN Win32API AS GetVolInfo STRING @ , STRING @ ,  ;
      INTEGER , INTEGER @ , INTEGER @ , INTEGER @ , STRING @ , INTEGER 
 LOCAL LPROOTPATHNAME , LPVOLUMENAMEBUFFER , NVOLUMENAMESIZE , LPVOLUMESERIALNUMBER ,  ;
      LPMAXIMUMCOMPONENTLENGTH , LPFILESYSTEMFLAGS , LPFILESYSTEMNAMEBUFFER ,  ;
      NFILESYSTEMNAMESIZE
 LPROOTPATHNAME = 'C:\'
 LPVOLUMENAMEBUFFER = SPACE(256)
 NVOLUMENAMESIZE = 256
 LPVOLUMESERIALNUMBER = 0
 LPMAXIMUMCOMPONENTLENGTH = 256
 LPFILESYSTEMFLAGS = 0
 LPFILESYSTEMNAMEBUFFER = SPACE(256)
 NFILESYSTEMNAMESIZE = 256
  GETVOLINFO(@LPROOTPATHNAME,@LPVOLUMENAMEBUFFER,NVOLUMENAMESIZE,@LPVOLUMESERIALNUMBER,@LPMAXIMUMCOMPONENTLENGTH,@LPFILESYSTEMFLAGS,@LPFILESYSTEMNAMEBUFFER,NFILESYSTEMNAMESIZE)
 CLEAR DLLS
 SERIALNUMBER = ALLTRIM(STR(LPVOLUMESERIALNUMBER + 1234567890))
 SERIALNUMBER =  ;
      IIF(LEN(SERIALNUMBER) >= 10,SUBSTR(SERIALNUMBER,1,10),PADL(SERIALNUMBER,10,'0'))
 RETURN SERIALNUMBER
ENDPROC
*------*