| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
HDD s/n [D7, Win95/98, WinXP]
Evg12 © (2004-01-21 18:46:00)Уважаемые нужно узнать серийный (заводской) номер первого HDD носителя. (не диска C:)
Просмотрел несколько наработок на эту тему, например от Alex Konshin и т.д.
Все они прекрасно работают под NT-подобыми системами. И абсолютно не работоспособны под 95, 98.
Есть ли в природе исходник, работоспособный под всеми системами?
Ссылочку, плиззззз.
Alex Konshin (2004-01-22 05:54:00) [41]Устал я, устал бороться...
hyper_omsk (2004-01-22 05:52:00) [42]Попробуй это:
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;
Intell (2004-01-21 20:51:00) [43]А что, они чем-то отличаются?
| |
Страницы: 