Информация о физических дисках

Code:

var s : String;

   rc : DWORD;

begin

s := GetIdeDiskSerialNumber;

if s='' then

   begin

     rc := GetLastError;

     if rc=0 then WriteLn('IDE drive is not support SMART feature')

     else WriteLn(SysErrorMessage(rc));

   end

else WriteLn('Disk serial number: ''', s,'''');

end.