Вверх ↑
Гость
Ответов: 17029
Рейтинг: 0
#1: 2007-07-20 20:37:50 ЛС | профиль | цитата
Помогите пожалуйста портировать код на делфи в схему

Код на делфи 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)
{
}
карма: 0

0