How to get Hard disk number with Delphi ??

[Lemonade]

Hello

Please help me , how to get hard disk number with delphi

Thanks,

Lemonade

 

[svanels]

function SerialNum(Fdrive: string): string;
var
Serial, DirLen, Flags: Dword;
DLabel: array[0..11] of char;
begin
try
GetVolumeInformation(Pchar(Fdrive+':\'),DLabel,12,@Serial,DirLen, Flags, nil, 0);
Result := IntToHex(Serial,8);
except
Result := '';
end;
end;


Usage:
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := 'Drive serial = ' + SerialNum('c');
end; Steven van Els
SAvanEls@cq-link.sr

 

[McMerfy]

Steven your example gives VOLUME's serial number not HDD's one.

--- markus

 

[svanels]

Your right, I didn't noticed it. Steven van Els
SAvanEls@cq-link.sr

 

[Lemonade]

Well......so how to get the HDD's one ??

 

[TonHu]

Please go to

http://www.torry.net

and find one of the many systeminfo components, some with source included, and take your pick...

HTH, TonHu