Make(delphi)
ver(4.04 build 184)
Add(InlineCode,6318627,273,441)
{
 WorkPoints=#11:doGetNumber|
 EventPoints=#11:onGetNumber|
 DataPoints=#4:Disk|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses Windows, Kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|10:     Disk,|28:     onGetNumber: THI_Event;|56:     procedure doGetNumber(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doGetNumber;|3:var|14:  Dsk: string;|9:  i:char;|16:  Root: string; |27:  DeviceName: string[255]; |5:begin|24:    For i:='C' to 'Z' do|10:    begin |17:     Root:=i+':';|20:     DeviceName:='';|48:     QueryDosDevice(@Root[1], @DeviceName, 256);|76:    If DeviceName <> '' then  _hi_onEvent(onGetNumber, Root+' '+DeviceName);|8:    end;|6:end;  |4:end.|
 link(onGetNumber,13804279:doSplit,[])
}
Add(DiskInfo,13275301,280,21)
{
 Point(ID)
 Point(FileSystem)
 link(onInfo,2330570:doSplit,[])
}
Add(MainForm,12572079,56,77)
{
 Width=359
 Height=303
 link(onCreate,7734971:doEvent2,[])
}
Add(FSMonitor,13814745,14,385)
{
 link(onDeviceArrival,10315853:doEvent1,[])
 link(onDeviceRemoveComplete,10315853:doEvent2,[])
}
Add(Hub,10315853,63,385)
{
 InCount=2
 OutCount=1
 link(onEvent1,7734971:doEvent3,[(105,391)(105,104)])
}
Add(ListBox,14182803,532,182)
{
 Left=90
 Top=5
 Width=85
 Height=225
}
Add(Hub,7734971,133,84)
{
 InCount=3
 link(onEvent1,12081155:In,[(154,90)(154,76)])
 link(onEvent2,7348259:doEvent1,[(154,97)(154,202)])
}
Add(Button,10054759,56,35)
{
 Left=10
 Top=240
 Width=330
 Caption="Обновить"
 Data=Integer(0)
 link(onClick,7734971:doEvent1,[(110,41)(110,90)])
}
Add(MultiStrData,13804279,357,441)
{
 Char=":"
 link(onPart1,2869274:doAdd,[])
}
Add(MultiStrData,2330570,336,21)
{
 Char=":"
 link(Str,13275301:DeviceID,[(342,9)(326,9)(326,68)(286,68)])
 link(onPart1,8955277:doAdd,[(509,27)(509,97)])
}
Add(LineBreak,5525105,434,217)
{
 link(Out,10932382:doEvent1,[(474,223)(474,216)])
 Primary=[12081155,-273,-147]
}
Add(ListBox,8955277,532,91)
{
 Left=5
 Top=5
 Width=85
 Height=225
}
Add(Hub,10932382,483,210)
{
 OutCount=4
 link(onEvent1,8955277:doClear,[(511,216)(511,104)])
 link(onEvent2,14182803:doClear,[(515,223)(515,195)])
 link(onEvent3,7104014:doClear,[(519,230)(519,335)])
 link(onEvent4,2869274:doClear,[(513,237)(513,454)])
}
Add(Hub,7348259,161,196)
{
 OutCount=4
 link(onEvent1,13275301:doInfo,[(227,202)(227,27)])
 link(onEvent2,9331011:doEvent1,[(238,209)(238,153)])
 link(onEvent3,14251883:doEnum,[(213,216)(213,328)])
 link(onEvent4,6318627:doGetNumber,[(207,223)(207,447)])
}
Add(ListBox,2869274,525,441)
{
 Left=260
 Top=5
 Width=85
 Height=225
}
Add(ListBox,7104014,532,322)
{
 Left=175
 Top=5
 Width=85
 Height=225
}
Add(VBJScript,14251883,273,322)
{
 WorkPoints=#6:doEnum|
 EventPoints=#6:onEnum|
 Script=#23:Sub doWork(Data, Index)|18:strComputer = "." |74:Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")|17:Select Case Index|30:   Case "doEnum"              |86:        Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) |37:        For Each objItem in colItems |83:            sys.onEnum objItem.Name & "*" & objItem.FileSystem & "*" & objItem.Size|19:        Next       |10:End Select|8:End Sub |
 UseName=0
 link(onEnum,2101677:doSplit,[])
}
Add(MultiStrData,2101677,357,322)
{
 Char=":"
 link(onPart1,7104014:doAdd,[])
}
Add(MultiStrData,13589785,413,140)
{
 Char=":"
 link(Str,15227999:DeviceID,[(419,128)(367,128)(367,184)(314,184)])
 link(onPart1,14182803:doAdd,[(485,146)(485,188)])
}
Add(DiskInfo,15227999,308,140)
{
 Point(ID)
 Point(FileSystem)
 link(onInfo,13589785:doSplit,[])
}
Add(ArrayEnum,8857551,329,203)
{
 link(onItem,15227999:doInfo,[(374,209)(374,131)(296,131)(296,146)])
 link(Array,15227999:IdArray,[])
}
Add(Hub,9331011,259,147)
{
 link(onEvent1,15227999:doArrayId,[])
 link(onEvent2,8857551:doEnum,[(301,160)(301,209)])
}