GetIDEDiskDriveInfo

function THardwareInfo.GetIDEDiskDriveInfo(Drive: Char; InfoID: Byte): String; AION(アイオン) 溜まり場
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
try
GetVolumeInformation(PChar(Drive + ':\'),
VolumeInfo, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
case InfoID of
1: Result:= Format('%8.8X', [VolumeSerialNumber]);
2: Result:= VolumeInfo;
else
result:='!';
end;
except on E: Exception do
end;
end;