| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
серийный номер винта!!! [D7, WinXP]
Kent © (2005-11-25 18:19:00)Добрый вечер!!!!!!! Подскажите как узнать серийный номер винчестера (программным путем конечно))))!!!
Alex Konshin (2005-11-28 09:54:00) [1]antonpv (25.11.05 23:26) [3]
Ну сколько же можно?
Get VolumeInformation выдает информацию о томе.
Получить же серрийный номер диска не так просто.
Примеры есть на мойей страницы (см.анкету).
antonpv (2005-11-25 23:26:00) [2]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;
kent (2005-11-25 21:59:00) [3]Удалено модератором
Примечание: Личная переписка
kami (2005-11-25 20:13:00) [4]Удалено модератором
Примечание: Личная переписка
| |
