Код на делфи code_1707.txt
Получает серийный номер винчестера.
А вот примерно такая схема
Add(MainForm,7541063,301,280)
{
Left=20
Top=105
link(onCreate,9180347:GetIdeDiskSerialNumber,[])
}
Add(InlineCode,9180347,385,315)
{
WorkPoints=#22:GetIdeDiskSerialNumber|
EventPoints=#18:Disk serial number|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|0:|5: end;|0:|14:implementation|0:|4:end.|
link(Disk serial number,1542098:doMessage,[])
}
Add(Message,1542098,448,315)
{
}