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,[])
}
[size=-2]------ Добавлено в 23:12
Выкладываю компонент Drive