Как узнать s/n принадлежащий винту..

← →
hfa (2003-08-29 17:47) [0]

Как определить серийный номер харда..может API помогите кто-нибудь.... Заранее Спасибо....

← →
Alex Konshin © (2003-08-30 07:18) [1]

http://home.earthlink.net/~akonshin/index.htm

← →
Yanis © (2003-08-30 10:19) [2]

Да ладно, на ссылку мы все нажать можем :)))
procedure TForm1.Button1Click(Sender: TObject); var VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char; VolumeSerialNo : DWord; MaxComponentLength, FileSystemFlags : Integer; begin GetVolumeInformation("C:\",VolumeName,MAX_PATH,@VolumeSerialNo, MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH); Memo1.Lines.Add("VName = "+VolumeName); Memo1.Lines.Add("SerialNo = $"+IntToHex(VolumeSerialNo,8)); Memo1.Lines.Add("CompLen = "+IntToStr(MaxComponentLength)); Memo1.Lines.Add("Flags = $"+IntToHex(FileSystemFlags,4)); Memo1.Lines.Add("FSName = "+FileSystemName); end;

← →
Anatoly Podgoretsky © (2003-08-30 10:28) [3]

Yanis © (30.08.03 10:19) [2]
И для чего ему метка тома?
Лучше нажми на ссылку, полезнее будет.

← →
D ick (2003-08-30 14:14) [4]

procedure TForm1.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;

Ну сколько можно?..
Народ, ну прежде чем советовать, вы хотя бы вопрос внимательно прочтите. Вас спрашивают про серийный номер диска, а вы ему подсовываете серийный номер тома. Если сами разницу не понимаете, то хоть других не смущайтеи почитайте форум. Тут чуть ли не каждый день этот вопрос задают.

Немного оффтопика.

Молодым и рьяным. Некоторые фамилии полезно наизусть знать. Alex Konshin к числу их принадлежит.

Как узнать s/n принадлежащий винту.. Найти похожие ветки