#sha
Add(MainForm,13229522,42,210)
{
 Left=20
 Top=105
 Width=451
 Height=698
 Point(Handle)
 link(onCreate,8908928:doEvent1,[])
}
Add(WinExec,3393797,315,329)
{
 RunEvent=1
}
Add(Button,7006504,35,315)
{
 Left=10
 Top=250
 Width=65
 Caption="instal ocx"
 Data=String(REGSVR32.EXE  C:\\1\\DATAFORM.OCX)
 link(onClick,7245720:doExecute,[])
}
Add(Button,9224840,35,364)
{
 Left=10
 Top=285
 Width=65
 Caption="uninstal ocx"
 Data=String(REGSVR32.EXE /u  C:\\1\\DATAFORM.OCX)
 link(onClick,9490518:doExecute,[])
}
Add(Registry,5738059,259,56)
{
 Key="CLSID"
 Point(doEnumKeys)
 Point(onEnumKey)
 link(onEnumKey,12659907:doStrCat,[])
}
Add(ListBox,15968636,616,140)
{
 Left=10
 Top=25
 Width=425
 Height=140
 TabOrder=1
 DataType=1
 Sort=0
 link(onClick,7308300:doWork2,[])
}
Add(Registry,9660688,553,140)
{
 NotEmpty=1
 link(onRead,15968636:doAdd,[])
}
Add(Registry,15056806,406,126)
{
 Point(doExistsKey)
 Point(onExistsKey)
 link(onExistsKey,12510956:doEvent,[])
}
Add(StrCat,13156511,504,140)
{
 Str2="\\ProgID"
 link(onStrCat,9660688:doRead,[])
 link(Str1,890290:Var3,[(510,114)])
}
Add(StrCat,12659907,308,63)
{
 Str1="CLSID\\"
 link(onStrCat,13340177:doValue,[])
}
Add(Memory,13340177,357,63)
{
 Default=String()
 link(onData,5407421:doStrCat,[(398,69)(398,106)(200,106)(200,146)])
}
Add(StrCat,3393488,357,140)
{
 Str2="\\ToolboxBitmap32"
 link(onStrCat,15056806:doExistsKey,[])
 link(Str1,890290:Var2,[])
}
Add(IndexToChanel,12510956,455,133)
{
 link(onEvent2,13156511:doStrCat,[])
}
Add(Edit,3303332,756,147)
{
 Left=10
 Top=195
 Width=425
 TabOrder=1
 Text=""
}
Add(GetDataEx,890290,350,105)
{
 link(Data,13340177:Value,[])
}
Add(Registry,395761,259,126)
{
 Point(doExistsKey)
 Point(onExistsKey)
 link(onExistsKey,12737373:doEvent,[])
}
Add(StrCat,5407421,210,140)
{
 Str2="\\Control"
 link(onStrCat,395761:doExistsKey,[])
}
Add(IndexToChanel,12737373,308,133)
{
 link(onEvent2,3393488:doStrCat,[])
}
Add(Hub,8908928,126,224)
{
 InCount=2
 OutCount=4
 link(onEvent1,4774063:doWork2,[])
 link(onEvent2,5738059:doEnumKeys,[(181,237)(181,76)])
 link(onEvent3,12663380:doString,[])
 link(onEvent4,4304945:doPopup,[(181,251)(181,299)(23,299)(23,272)])
}
Add(WinTools,4304945,42,259)
{
 link(Handle,13229522:Handle,[])
}
Add(Label,13340494,672,238)
{
 Left=10
 Top=5
 Width=138
 Height=17
 Caption="Зарегистрированные OCX"
}
Add(ListBox,12990980,686,294)
{
 Left=85
 Top=250
 Width=350
 Height=90
 TabOrder=1
 DataType=1
 Sort=0
 link(onClick,7308300:doWork3,[(732,307)])
}
Add(Label,4804102,672,21)
{
 Left=80
 Top=230
 Width=75
 Caption="Новый OCX"
}
Add(FormatStr,12663380,623,238)
{
 DataCount=1
 Mask="Зарегистрированные OCX Всего - %1"
 link(onFString,13340494:doText,[])
 link(Str1,15968636:Count,[])
}
Add(Label,430380,665,14)
{
 Left=10
 Top=175
 Width=148
 Height=17
 Caption="Строка для вставки в CLSID"
}
Add(StrList,3486219,721,63)
{
}
Add(ODialog,7245720,91,315)
{
 Filter="ActiveX OCX|*.OCX|ActiveX DLL|*.DLL"
 Title="ActiveX OCX и DLL"
 link(onExecute,9752452:doString,[])
}
Add(ODialog,9490518,91,364)
{
 Filter="ActiveX OCX|*.OCX|ActiveX DLL|*.DLL"
 Title="ActiveX OCX и DLL"
 link(onExecute,11429161:doString,[])
}
Add(FormatStr,9752452,140,315)
{
 DataCount=1
 Mask="regsvr32 %1"
 link(onFString,11127637:doEvent1,[])
}
Add(FormatStr,11429161,140,364)
{
 DataCount=1
 Mask="regsvr32 /u %1"
 link(onFString,11127637:doEvent2,[(184,370)(184,328)])
}
Add(Hub,11127637,196,315)
{
 InCount=2
 OutCount=5
 link(onEvent1,14867512:In,[])
 link(onEvent2,4774063:doWork3,[(242,328)])
 link(onEvent3,3393797:doExec,[])
 link(onEvent4,9630503:In,[])
 link(onEvent5,12749709:In,[(244,349)(244,363)])
}
Add(MultiElement,580571,630,294)
{
 @Hint=#19:Поиск новых ActiveX|
 link(onEvent1,12990980:doAdd,[])
 link(Data1,15968636:Array,[])
 link(Data2,3486219:Array,[(643,215)(741,215)])
}
BEGIN_SDK
  Add(EditMulti,16521123,10,10)
  {
   EventCount=1
   WorkCount=1
   DataCount=2
   Height=158
   link(doWork1,13013782:doEnum,[(22,16)(22,41)])
  }
  Add(ArrayEnum,13013782,35,35)
  {
   link(onItem,4780073:doValue,[])
   link(Array,16521123:Data1,[(41,23)(16,23)])
  }
  Add(ArrayEnum,3125652,133,35)
  {
   link(onItem,13026981:In,[])
   link(onEndEnum,3067290:doCompare,[(178,48)(178,111)])
   link(Array,16521123:Data2,[(139,23)(23,23)])
  }
  Add(Memory,4780073,84,35)
  {
   link(onData,3125652:doEnum,[])
  }
  Add(If_else,2696286,84,105)
  {
   Op1=String()
   Op2=String()
   link(onTrue,4780073:doClear,[(128,111)(128,93)(77,93)(77,48)])
   link(Op1,3724034:Var2,[])
   link(Op2,3125652:Item,[(97,85)(139,85)])
  }
  Add(LineBreak,7644502,35,105)
  {
   link(Out,2696286:doCompare,[])
   Primary=[13026981,154,-70]
  }
  Add(If_else,3067290,203,105)
  {
   Type=5
   Op2=String()
   link(onTrue,5780091:doData,[])
   link(Op1,8599071:Var2,[])
  }
  Add(GetDataEx,3724034,77,70)
  {
   link(Data,4780073:Value,[])
  }
  Add(DoData,5780091,259,105)
  {
   link(onEventData,16521123:onEvent1,[(301,111)(301,16)])
   link(Data,8599071:Var3,[(265,93)])
  }
  Add(GetDataEx,8599071,196,84)
  {
   link(Data,3724034:Var3,[(209,79)])
  }
END_SDK
Add(HubEx,7308300,728,140)
{
 link(onEvent,3303332:doText,[])
}
Add(LineBreak,13821656,581,294)
{
 link(Out,580571:doWork1,[])
 Primary=[12749709,-322,63]
}
Add(LineBreak,12774238,616,84)
{
 link(Out,3691571:doData,[])
 Primary=[14867512,-357,231]
}
Add(HubEx,4774063,238,217)
{
 link(onEvent,15968636:doClear,[(602,230)(602,153)])
}
Add(LineBreak,5594868,42,182)
{
 link(Out,8908928:doEvent2,[(99,188)(99,237)])
 Primary=[9630503,217,154]
}
Add(DoData,3691571,672,84)
{
 link(onEventData,3486219:doText,[])
 link(Data,15968636:Text,[(678,73)(657,73)(657,197)(622,197)])
}