серийный номер HDD
 

Люди !!!
Подскажите, плиз, что такое серийный номер HDD (тот самый, который выводится по команде msdos DIR). --->Можно ли его прочитать из Delphi?

А при чём тут дир???:баран:

Можно:

var
SerialNum:Pdword;
a,b:Dword;
buffer:array [0..255] of char;
begin
new(SerialNum);
if getVolumeInformation('c:\',buffer,sizeof(buffer),SerialNum,a,b,nil,0) then
label1.Caption:=IntToStr(SerialNum^);
Dispose(SerialNum);
end;

xex....:winkgrin:

Woobsche-to eto ne nomer winta, a nomer razdela. A tak wse puchkom.