| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

hfa ©   (2003-08-29 17:47:00) 

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

---

Ihor Osov'yak   (2003-08-31 00:30:00) [1]

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

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

---

Alex Konshin   (2003-08-30 21:14:00) [2]

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

---

D ick   (2003-08-30 14:14:00) [3]


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;


---

Anatoly Podgoretsky   (2003-08-30 10:28:00) [4]

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

---

Yanis   (2003-08-30 10:19:00) [5]

Да ладно, на ссылку мы все нажать можем :)))

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;


---

Alex Konshin   (2003-08-30 07:18:00) [6]

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

---

Наверх