Re: How to find what hard disk number?

Posted by Jean Claude Servaye on March 16, 2001 at 14:14:47:

In Reply to: How to find what hard disk number? posted by Balachandran on March 16, 2001 at 07:59:41:

var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation('C:\',
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +
'-' +
IntToHex(LoWord(VolumeSerialNumber), 4);