Получить серийный номер диска

function
 GetHardDiskSerial(const
 DriveLetter: Char): string
; 
var
 
  NotUsed:     DWORD; 
  VolumeFlags: DWORD; 
  VolumeInfo:  array
[0..MAX_PATH] of
 Char; 
  VolumeSerialNumber: DWORD; 
begin
 
  GetVolumeInformation(PChar(DriveLetter + ':'), 
    nil
, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, 
    VolumeFlags, nil
, 0); 
  Result := Format('Label = %s   VolSer = %8.8X', 
    [VolumeInfo, VolumeSerialNumber]) 
end
; 


procedure
 TForm1.Button1Click(Sender: TObject); 
begin
 
  ShowMessage(GetHardDiskSerial('c')); 
end
;

Другое по теме:

• Как расшарить диск
• Как проверить находится ли файл на локальном диске
• Как проверить готовность диска А