Код:
Add(MainForm,2953706,154,105)
{
 BorderStyle=0
}
Add(Button,13935882,84,56)
{
 Left=10
 Top=25
 Caption="Set"
 link(onClick,15928427:doSetForm,[])
}
Add(InlineCode,15928427,154,56)
{
 WorkPoints=#9:doSetForm|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Windows,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|20:     fHWND: Thandle;|9:   public|51:     procedure doSetForm(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|32:procedure THiAsmClass.doSetForm;|5:begin|24:  fHWND := ReadHandle();|25:  if fHWND = 0 then Exit;|36:  Applet.WindowState := wsMinimized;|42:  // устанавливаем родителя рабочим столом|48:  SetParent(fHWND, GetParent(GetDesktopWindow));|28:  ShowWindow(fHWND,SW_SHOW);|34:  // устанавливаем в размер экрана|68:  SetWindowPos(fHWND,HWND_TOPMOST,0,0,ScreenWidth,ScreenHeight,0);  |10:end;      |0:|4:end.|
}
Add(Button,7372434,84,105)
{
 Left=10
 Top=55
 Caption="Exit"
 link(onClick,2953706:doClose,[(135,111)(135,132)])
}