procedureTForm1.Button1Click(Sender: TObject); var
SerialNum : dword; a, b : dword; Buffer : array
[0..255] of
char; begin
if
GetVolumeInformation('c:', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil
, 0) then
Label1.Caption := IntToStr(SerialNum); end
;
Алексей Коган FIDOnet 2:5064/7.69 Russia, Stavropol
Должен заметить, что GetVolumeInformation возвращает серийный номер ТОМА, а не винчестера, то есть, если заменить C: на D:, то номерок-то и поменяется...