Текущий архив: 2006.02.12;
Скачать: CL | DM;
Вниз
серийный номер винта!!! Найти похожие ветки
← →
Kent (2005-11-25 18:19) [0]Добрый вечер!!!!!!! Подскажите как узнать серийный номер винчестера (программным путем конечно))))!!!
← →
kami © (2005-11-25 20:13) [1]Удалено модератором
Примечание: Личная переписка
← →
kent (2005-11-25 21:59) [2]Удалено модератором
Примечание: Личная переписка
← →
antonpv (2005-11-25 23:26) [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;
← →
Alex Konshin © (2005-11-28 09:54) [4]antonpv (25.11.05 23:26) [3]
Ну сколько же можно?
GetVolumeInformation выдает информацию о томе.
Получить же серрийный номер диска не так просто.
Примеры есть на мойей страницы (см.анкету).
Страницы: 1 вся ветка
Текущий архив: 2006.02.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
