给你这个这个是我用的你看看好使不functionGetVolumeID:string;varvVolumeNameBuffer:arrayofChar;beginifGetVolumeInformation''C:\'',vVolumeNameBuffer,SizeOfvVolumeNameBuffer,@vVolumeSerialNumber,vMaximumComponentLength,vFileSystemFlags,vFileSystemNameBuffer,SizeOfvFileSystemNameBufferthenbeginResult:=IntToHexvVolumeSerialNumber,8;end;end。
黄盛波2019-12-21 18:09:08