Вверх ↑
Ответов: 1891
Рейтинг: 110
#1: 2007-03-30 23:12:28 ЛС | профиль | цитата
SoftWorker, писал(а):
Кто-нибудь помогите - как узнать серийный номер жестк. диска


Может серийный номер тома?
Add(MainForm,2450397,21,105)
{
Left=20
Top=105
link(onCreate,9051208:doGetLogicalDrive,[])
}
Add(Drive,9051208,91,140)
{
Point(SerialNumber)
link(onOK,1513708:doText,[(139,153)(139,180)(109,180)(109,195)])
link(DriveName,9716400:Value,[(96,121)])
}
Add(Memory,9716400,91,84)
{
Default=String(C:)
}
Add(Label,1513708,119,189)
{
Left=15
Top=50
link(Text,9051208:SerialNumber,[])
}
Проверял через команду msinfo32 - все сходится!

[size=-2]------ Добавлено в 23:12
Выкладываю компонент Drive
карма: 0
%time%
0
файлы: 1Drive.rar [4.1KB] [226]