Add(MainForm,6502353,70,105)
{
 Width=681
 Height=559
 Point(Handle)
 link(onDeactivate,1779052:doSleepMks,[])
 link(onCreate,11038488:doExec,[(114,125)(114,202)])
}
Add(WinEnum,1218438,294,119)
{
 link(onFindWindow,560410:doEvent1,[])
 link(Caption,14145495:Text,[(300,86)(293,86)])
}
Add(Hub,560410,350,119)
{
 OutCount=3
 link(onEvent1,9783382:doSetParent,[])
 link(onEvent2,1783027:doLeft,[])
 link(onEvent3,1783027:doTop,[])
}
Add(PosWindow,1783027,392,126)
{
 link(Handle,5775991:Var2,[])
}
Add(GetDataEx,5775991,392,102)
{
 Angle=3
 link(Data,1218438:Handle,[(334,107)(334,163)(300,163)])
}
Add(SetParent,9783382,441,119)
{
 link(onSetParent,5287012:doNoBorder,[])
 link(Handle,4338841:Var2,[])
 link(NewParent,6502353:Handle,[(454,107)(265,107)(265,149)(76,149)])
}
Add(GetDataEx,4338841,441,102)
{
 Angle=3
 link(Data,5775991:Var3,[])
}
Add(InlineCode,5287012,490,119)
{
 WorkPoints=#10:doNoBorder|
 DataPoints=#6:Handle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|3:   |9:   public|23:     Handle: THI_Event;|54:     procedure doNoBorder(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|61:procedure THiAsmClass.doNoBorder(var Data:TData; index:word);|3:var|13:  h: THandle;|20:  lPrevStyle: int64;|5:begin|34:  h := ReadInteger(Data,Handle,0);|44:  lPrevStyle := GetWindowLong(h, GWL_STYLE);|158:  SetWindowLong(h, GWL_STYLE, (lPrevStyle and (Not WS_THICKFRAME) and (Not WS_BORDER) and (Not WS_CAPTION) and (Not WS_MINIMIZEBOX) and (Not WS_MAXIMIZEBOX)))|4:end;|0:|4:end.|
 link(Handle,4338841:Var3,[(496,107)])
}
Add(Sleep,1779052,210,112)
{
 Delay=1000
 link(onSleep,1218438:doFind,[(268,118)(268,132)])
}
Add(WinExec,11038488,154,196)
{
 FileName="Calc.Exe"
}
Add(VisualStrings,14145495,287,21)
{
 Lines=#11:Калькулятор|
 Width=123
 Height=32
}