| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
серийный номер утсройства... [D6, Win2k]
Vladimir1 © (2003-02-28 09:36:00)народ, киньте пример, как узнать серийник хоть какого-л устройства в компе, которое есть обязательно.
Poirot (2003-03-02 07:58:00) [1]
> Alex Konshin
> Уфф... Опять... Может, это уже в FAQ?
Да конечно надоело, но зачем это в ЧАВО? В хелпе (он же парт оф МСДН) написано всё нормальным языком. Это людей надо лечить, а не ЧАВО портить.
Alex Konshin (2003-03-01 08:58:00) [2]Уфф... Опять... Может, это уже в FAQ?
2 Nic_B: Это не серийный номер "винта", а серийный номер тома, то есть, к устройству это никакого отношения не имеет.
Смотри:
http://www.latiumsoftware.com/en/pascal/0044.php#4
И наличие винчестера в компьютере не обязательно.
Nic_B (2003-02-28 12:49:00) [3]S/n винта (вроде должен работать)
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);
| |
