Текущий архив: 2003.11.03;
Скачать: 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 вся ветка
Текущий архив: 2003.11.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
