您所在位置：主题：Fortran如何调用GetVolumeInformation来读取硬盘分区序列号？
scoot
[专家分：30] 发布于 2014-12-09 09:49:47
Fortran如何调用GetVolumeInformation函数来读取硬盘分区序列号？我试过好多次了，总是返回值为零，调用不成功。如下是我的代码，请各位大大帮我分析一下：
program Console1
use kernel32 ! 调用GetVolumeInformation所需
implicit none
integer iRes
character(len=255)::TempStr1="" ! 我的觉得就是此处的定义有问题!
character(len=255)::TempStr2="" ! 但是却不知道怎么改了 !
integer TempInt1, TempInt2,SerialNumber
iRes=GetVolumeInformation("C:\", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256) !iRes非零表示成功，零表示失败。
print*,"iRes=",iRes
print*,"SerialNumber=",SerialNumber
pause
end program Console1