Add(MainForm,9773486,217,126)
{
 Width=252
 Height=83
 Caption="Поиск WinRar.exe"
 BorderStyle=1
 Position=1
 link(onCreate,12545407:doEvent1,[])
}
Add(MultiElementEx,12545407,273,140)
{
 link(onEvent1,13193167:doText,[])
}
BEGIN_SDK
  Add(EditMultiEx,4025967,287,224)
  {
   WorkCount=#8:doEvent1|
   EventCount=#8:onEvent1|
   Width=363
   Height=137
   link(doEvent1,8397127:doStart,[(311,230)(311,293)])
  }
  Add(InlineCode,4931650,392,287)
  {
   WorkPoints=#9:doGetDisk|
   EventPoints=#9:onGetDisk|11:onEndSearch|
   Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|30:uses windows, kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|26:     onGetDisk: THI_Event;|28:     onEndSearch: THI_Event;|54:     PROCEDURE doGetDisk(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|32:PROCEDURE THiAsmClass.doGetDisk;|5:  var|12:    i: Char;|7:  begin|97:    for i:= 'C' to 'Z' do  if (GetDriveType(PChar(i+':\'))=3) then _hi_onEvent(onGetDisk,i+':\');|29:    _hi_onEvent(onEndSearch);|6:  end;|4:end.|
   link(onGetDisk,12664417:doAdd,[(443,293)(443,237)])
   link(onEndSearch,15475361:doEnum,[])
  }
  Add(StrList,12664417,462,231)
  {
  }
  Add(ArrayEnum,15475361,476,294)
  {
   link(onItem,9796095:doSearch,[])
   link(Array,12664417:Array,[])
  }
  Add(Thread,8397127,336,287)
  {
   Delay=1
   FastStop=0
   link(onExec,4931650:doGetDisk,[])
  }
  Add(FileSearch,9796095,546,294)
  {
   Ext="winrar.exe"
   link(onSearch,6818955:doEvent1,[])
  }
  Add(Hub,6818955,595,294)
  {
   OutCount=4
   link(onEvent1,4025967:onEvent1,[(629,300)(629,230)])
   link(onEvent2,15475361:doStop,[(630,307)(630,338)(464,338)(464,307)])
   link(onEvent3,9796095:doStop,[(621,314)(621,331)(534,331)(534,307)])
  }
END_SDK
Add(Label,13193167,336,140)
{
 Left=10
 Top=15
 Caption=""
}

Add(MainForm,9773486,182,126)
{
 Width=252
 Height=83
 Ctl3D=0
 WinStyle=2
 Caption="Поиск WinRar.exe"
 BorderStyle=1
 Position=1
 link(onCreate,8359312:doStart,[])
}
Add(Edit,14632317,406,140)
{
 Left=10
 Top=15
 Width=230
 Height=15
 Color=-16777201
 Ctl3D=1
 Text="ПОИСК"
 Alignment=2
}
Add(Registry,10556919,294,140)
{
 HKey=2
 Key="SOFTWAREMicroSoftWindowsCurrentVersionApp Pathswinrar.exe"
 Value="Path"
 link(onRead,14760685:doStrCatDlm,[])
}
Add(StrCatDelim,14760685,350,140)
{
 Delimiter=""
 Str2="WinRar.exe"
 link(onStrCatDlm,14632317:doText,[])
}
Add(Thread,8359312,238,140)
{
 Delay=1
 FastStop=0
 link(onExec,10556919:doRead,[])
}