Add(MainForm,2953706,21,105)
{
}
Add(Button,6857501,140,308)
{
 Left=15
 Top=50
 Width=85
 Caption="Browser"
 link(onClick,9268460:doWork1,[(205,314)(205,342)])
}
Add(Edit,4732400,175,238)
{
 Left=120
 Top=85
 Width=225
 Text="https://www.youtube.com/"
}
Add(InlineCode,9268460,238,336)
{
 WorkPoints=#7:doWork1|7:doWork2|7:doWork3|
 EventPoints=#6:onTrue|0:|
 DataPoints=#6:Param1|6:Param2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,ShellAPI,Windows,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|8:        |10:    public|21:   Param1: THI_Event;|22:   Param2: THI_Event; |19: onTrue: THI_Event;|3:   |50:  Procedure doWork1(var _Data:TData; Index:Word); |49:  Procedure doWork2(var _Data:TData; Index:Word);|49:  Procedure doWork3(var _Data:TData; Index:Word);|5: end;|0:|2:  |15: implementation|0:|3:   |31:Procedure THiAsmClass.doWork1; |5:begin|0:|104:ShellExecute(0, 'open', PChar(ToStringEvent(Param2)), PChar(ToStringEvent(Param1)), nil, SW_SHOWNORMAL);|30:    _hi_OnEvent(onTrue,'OK') ;|7:   end;|31:Procedure THiAsmClass.doWork2; |5:begin|0:|80:ShellExecute(0, 'open', PChar(ToStringEvent(Param1)), nil, nil, SW_SHOWNORMAL); |30:    _hi_OnEvent(onTrue,'OK') ;|7:   end;|3:   |32: Procedure THiAsmClass.doWork3; |5:begin|0:|62:ShellExecute(0, 'open', 'https://', nil, nil, SW_SHOWNORMAL); |30:    _hi_OnEvent(onTrue,'OK') ;|9:   end;  |0:|4:end.|
 link(Param1,4732400:Text,[(244,303)(181,303)])
 link(Param2,14267906:Text,[(251,302)(301,302)])
}
Add(Edit,14267906,295,238)
{
 Left=120
 Top=50
 Width=225
 Text="d:\UTIL\Сеть\Browser.exe"
}
Add(Button,4272316,140,364)
{
 Left=15
 Top=90
 Width=85
 Caption="По умолчанию"
 link(onClick,9268460:doWork2,[(190,370)(190,349)])
}
Add(Button,5819255,140,413)
{
 Left=20
 Top=125
 Width=75
 Caption="New"
 link(onClick,9268460:doWork3,[(205,419)(205,356)])
}