Вверх ↑
Разработчик
Ответов: 26214
Рейтинг: 2138
#1: 2008-08-18 10:09:49 ЛС | профиль | цитата
andrestudio писал(а):
выдаёт неправельную букву диск

А вот так работает


Add(MainForm,12900612,266,231)
{
Left=20
Top=105
Width=216
Height=220
}
Add(DiskInfo,14302292,434,231)
{
Point(FreeSpace)
Point(DriveType)
link(onInfo,15918966:doCompare,[])
}
Add(Button,14692951,329,231)
{
Left=5
Top=20
link(onClick,2668624:doEvent1,[])
}
Add(ListBox,8694834,532,378)
{
Left=75
Top=15
Width=115
Height=150
link(Str,6981597:Value,[])
}
Add(If_else,11360478,462,399)
{
Type=2
Op2=Real(1)
link(onTrue,14527988:doValue,[(506,405)(506,367)(457,367)(457,328)])
link(Op1,11481827:Var2,[])
link(Op2,14527988:Value,[])
}
Add(Memory,14527988,469,322)
{
Default=Integer(1)
Point(Data)
link(onData,6981597:doValue,[])
link(Data,11481827:Var3,[(475,303)])
}
Add(Memory,6981597,532,322)
{
Point(Data)
link(Data,14302292:DeviceID,[(538,289)(440,289)])
}
Add(Hub,2668624,378,231)
{
link(onEvent1,14302292:doInfo,[])
link(onEvent2,8694834:doAdd,[(424,244)(424,384)])
}
Add(If_else,15918966,497,231)
{
Op2=Integer(3)
link(onTrue,11360478:doCompare,[(543,237)(543,213)(320,213)(320,405)])
link(Op1,14302292:DriveType,[(503,219)(489,219)(489,275)(475,275)])
}
Add(GetDataEx,11481827,455,294)
{
link(Data,14302292:FreeSpace,[])
}

------------ Дoбавленo:

andrestudio писал(а):
это второй неодназначный случай DiskInfo WMI за последнее время

Брехня -- неумение применять компонент не означеет отсутствие его работоспособности
карма: 22

0