获取硬盘序列号的Fortran程序

获取硬盘序列号的Fortran程序

以前写了个获取硬盘序列号的fortran程序，但未经实证
program FortranDemo

     Use Kernel32
     
          Implicit None 
          
          Interface
          
           SUBROUTINE GetDiskSerialNumber1(drive,  pout,  poutsize)
           !DEC$ ATTRIBUTES STDCALL :: GetDiskSerialNumber1
          !DEC$ ATTRIBUTES Alias:'GetDiskSerialNumber1':: GetDiskSerialNumber1
           !DEC$ ATTRIBUTES REFERENCE:: pout,  poutsize
           INTEGER :: poutsize
           CHARACTER(len=1) :: drive
           CHARACTER :: pout(*)
           End SUBROUTINE
           SUBROUTINE DoReg(user,userlen,regid,regidlen)
           !