Add(MainForm,2229537,175,140)
{
}
Add(InlineCode,605968,259,203)
{
 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:  |65:  function VolumeNameToDeviceName(const VolName: String): String;|5:  var|14:    s: String;|47:    TargetPath: Array[0..MAX_PATH] of WideChar;|7:  begin|17:    Result := ';|17:    s := VolName;|80:    if QueryDosDeviceW(PWideChar(WideString(s)), TargetPath, MAX_PATH) <> 0 then|27:      Result := TargetPath;|6:  end;|5:begin|33:  dsk := ReadString(_Data, Disk);|56:  _hi_onEvent(onGetNumber, VolumeNameToDeviceName(dsk));|4:end;|0:|4:end.|
 link(onGetNumber,14662440:doText,[])
 link(Disk,6720202:Text,[])
}
Add(Edit,6720202,259,140)
{
 Left=35
 Top=10
 Width=130
 Cursor=1
 Text="C:"
}
Add(Button,12612004,175,203)
{
 Left=75
 Top=40
 TabOrder=-1
 link(onClick,605968:doGetNumber,[])
}
Add(Edit,14662440,329,203)
{
 Left=35
 Top=70
 Width=245
 Cursor=1
 Text=""
}