fortran.txt

来自「（转）一个包含目前所有流行的加解密代码（RSA」· 文本 代码 · 共 21 行

Fortran里调企业版reg.dll取硬盘序列号示例 by 袁梦涛

      CHARACTER*30 diskid
      INTEGER ndisk

      INTERFACE
        INTEGER FUNCTION GetHardDiskId
 (diskid,ndisk)
        !DEC$ ATTRIBUTES DLLIMPORT, STDCALL,
     $ALIAS:"_GetHardDiskId@8" :: GetHardDiskId
        CHARACTER diskid*30
        !DEC$ ATTRIBUTES REFERENCE :: diskid
        INTEGER(4) ndisk
        END FUNCTION GetHardDiskId
      END INTERFACE

      reslt = GetHardDiskId(diskid,ndisk)

命令行编译方式：ifort example.f reg.lib