获取硬盘序列号的Fortran程序

最新推荐文章于 2023-02-13 21:52:00 发布

转载

最新推荐文章于 2023-02-13 21:52:00 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/China3S/p/9630401.html

本文分享了一篇关于如何使用Fortran编程语言来获取计算机硬盘序列号的教程，详细介绍了相关代码和实现过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

获取硬盘序列号的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)
           !DEC$ ATTRIBUTES STD