Add(MainForm,2953706,126,70)
{
}
Add(InlineCode,605968,210,133)
{
 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;|2:  |35:  procedure GetDeviceList(D: Char);|5:  var|18:    Root: string; |24:    DeviceName: string; |18:    Drives: DWORD;|17:    len: integer;|7:  begin|33:    Drives := GetLogicalDrives();|17:    Root := 'A:';|24:    while Drives <> 0 do|10:    begin |52:      if ((Drives and 1) = 1) and (Root[1] = D) then|12:      begin |36:        SetLength(DeviceName, 256); |61:        len := QueryDosDevice(@Root[1], @DeviceName[1], 256);|24:        if len <> 0 then|14:        begin |37:          SetLength(DeviceName, len);|53:          _hi_onEvent(onGetNumber, Trim(DeviceName));|16:          break;|14:        end;  |10:      end;|20:      inc(Root[1]); |31:      Drives:= Drives shr (1); |12:    end;    |4:end;|5:begin|33:  dsk := ReadString(_Data, Disk);|24:  GetDeviceList(dsk[1]);|4:end;|0:|4:end.|
 link(onGetNumber,14662440:doText,[])
 link(Disk,6720202:Text,[])
}
Add(Edit,6720202,210,70)
{
 Left=35
 Top=10
 Width=130
 Cursor=1
 Text="C"
}
Add(Button,12612004,126,133)
{
 Left=75
 Top=40
 TabOrder=-1
 link(onClick,605968:doGetNumber,[])
}
Add(Edit,14662440,280,133)
{
 Left=35
 Top=70
 Width=245
 Cursor=1
 Text=""
}