Скачать: CL | DM;

Как узнать 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 ©   (2003-08-30 21:14) [5]

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

---

← →
Ihor Osov'yak ©   (2003-08-31 00:30) [6]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c