Вверх ↑
Ответов: 4688
Рейтинг: 517
#1: 2008-08-18 09:01:35 ЛС | профиль | цитата
juk, самое печальное что вот такая схема с DiskInfo неработает (выдаёт неправельную букву диска)code_9748.txt

аналогичная схема с компонентом Drive работает превосходно, это второй неодназначный случай DiskInfo WMI за последнее время, поэтому использую Drive.
------------ Дoбавленo:

вот схема с Drive (даже боюсь выкладывать, ибо было сказано: " Некогда не предлагайте компоненты невходящие в дистрибутив")


#sha
Add(MainForm,1006107,21,105)
{
Left=20
Top=105
Width=211
Height=150
}
Add(Drive,5842772,238,126)
{
link(onGetLogicalDrive,13191944:doValue,[(284,132)(284,115)(226,115)(226,69)])
link(DriveName,1167490:Var2,[])
}
Add(DoData,8820561,357,266)
{
link(onEventData,8694834:doAdd,[])
link(Data,6981597:Value,[])
}
Add(If_else,11360478,245,217)
{
Type=2
link(onTrue,11705494:doValue,[])
link(Op1,12915176:Var2,[])
link(Op2,11705494:Value,[(258,205)(290,205)(290,261)(314,261)])
}
Add(Memory,11705494,308,217)
{
Default=Real(1)
Point(Data)
link(onData,6981597:doValue,[])
link(Data,12915176:Var3,[(314,198)])
}
Add(Memory,6981597,357,217)
{
Default=String()
Point(Data)
link(Data,1167490:Var3,[(363,107)])
}
Add(Hub,10356938,147,126)
{
link(onEvent1,5842772:doGetLogicalDrive,[])
link(onEvent2,8820561:doData,[(206,139)(206,272)])
}
Add(Memory,13191944,238,63)
{
link(onData,11360478:doCompare,[(301,69)(301,179)(233,179)(233,223)])
}
Add(ListBox,8694834,420,266)
{
Left=75
Top=15
Width=115
Height=75
}
Add(Button,14692951,98,126)
{
Left=10
Top=15
link(onClick,10356938:doEvent1,[])
}
Add(GetDataEx,12915176,238,189)
{
link(Data,5842772:FreeSpace,[])
}
Add(GetDataEx,1167490,231,98)
{
link(Data,13191944:Value,[])
}



карма: 6
0
файлы: 1code_9748.txt [1.1KB] [124]