Add(MainForm,10156103,84,259)
{
 Point(Handle)
 link(onCreate,12383078:doEvent1,[])
}
Add(FindWindow,5846319,336,308)
{
 Point(ChildHandle)
}
Add(MultiElementEx,6638574,210,217)
{
}
BEGIN_SDK
  Add(EditMultiEx,15148873,21,21)
  {
   WorkCount=#16:doRead=1parametr|13:doWrite=Vokno|
   VarCount=#10:Part=zagol|
   DataCount=#10:Value=okno|
   Width=216
   Height=144
   link(doRead,4227785:doRead,[(31,27)(31,111)(77,111)(77,76)])
   link(doWrite,4227785:doWrite,[(59,34)(59,83)])
   link(Part,15551448:Value,[(27,133)(209,133)])
  }
  Add(Ini,4227785,98,70)
  {
   FileName="Option.ini"
   Section="okno"
   Key="o1"
   Type=1
   link(onResult,15551448:doValue,[])
   link(Value,15148873:Value,[(125,46)(27,46)])
  }
  Add(Memory,15551448,203,70)
  {
   Default=String(ццуц)
  }
END_SDK
Add(WinTools,27292,343,350)
{
 Point(doCaption)
 link(Handle,10156103:Handle,[(349,344)(90,344)])
 link(Text,6638574:Part,[(356,300)(216,300)])
}
Add(Hub,12383078,140,273)
{
 link(onEvent1,6638574:doRead,[(185,279)(185,223)])
 link(onEvent2,27292:doCaption,[(248,286)(248,384)])
}

Add(MainForm,2953706,119,238)
{
 Width=571
 Height=494
 link(onCreate,1159849:doWork2,[])
}
Add(Edit,13812777,126,329)
{
 Left=70
 Top=140
 Width=140
 link(onChange,12929189:doCaption,[])
}
Add(Label,4807150,112,133)
{
 Left=75
 Top=40
 Width=30
 Height=17
 Caption="Окно"
}
Add(Label,324556,112,168)
{
 Left=70
 Top=120
 Width=48
 Height=17
 Caption="Надпись"
}
Add(WinTools,12929189,210,301)
{
 Point(doCaption)
 link(Handle,20258:Handle,[])
}
Add(WinEnum,20258,210,252)
{
 link(Caption,5667558:Text,[])
}
Add(Edit,5667558,210,168)
{
 Left=75
 Top=60
 Width=145
 link(onChange,1159849:doWork1,[(254,174)(254,214)(186,214)])
}
Add(HubEx,1159849,182,252)
{
 link(onEvent,20258:doFind,[(199,258)(199,265)])
}

Add(MainForm,2953706,126,252)
{
 Width=571
 Height=494
}
Add(Edit,13812777,126,399)
{
 Left=70
 Top=140
 Width=140
 link(onChange,12929189:doCaption,[])
}
Add(Label,324556,126,217)
{
 Left=70
 Top=120
 Width=48
 Height=17
 Caption="Надпись"
}
Add(WinTools,12929189,210,371)
{
 Point(doCaption)
 link(Handle,20258:Handle,[])
}
Add(WinEnum,20258,210,280)
{
 link(Caption,5667558:Text,[])
}
Add(Edit,5667558,210,217)
{
 Left=75
 Top=60
 Width=145
 Text=""
}
Add(Button,13488148,126,287)
{
 Left=75
 Top=80
 Width=145
 Color=145
 Caption="Искать"
 link(onClick,20258:doFind,[])
}
Add(Button,7981035,126,364)
{
 Left=70
 Top=165
 Color=165
 Caption="Закрыть"
 link(onClick,12929189:doClose,[(184,370)(184,398)])
}
Add(Button,16673658,126,329)
{
 Left=115
 Top=325
 Color=325
 Caption="Скрыть"
 link(onClick,12929189:doVisible,[(189,335)(189,377)])
}

#pas
unit hiBeep;

interface

uses Kol,Share,Windows,Debug;

type
  THIBeep = class(TDebug)
   private
   public
    _prop_Freq:integer;
    _prop_Duration:integer;
    _data_Duration:THI_Event;
    _data_Freq:THI_Event;
    _event_onBeep:THI_Event;

    procedure _work_doBeep(var _Data:TData; Index:word);
  end;

implementation

procedure THIBeep._work_doBeep;
var fr,dr:integer;
    ob:string;
begin
   fr := ReadInteger(_Data,_data_Freq,_prop_Freq);
   dr := ReadInteger(_Data,_data_Duration,_prop_Duration);
   ob := fr,',dr;
   if fr < 40 then fr := 40;
   if fr = 0 then sleep(dr) else Beep(fr,dr);
   _hi_CreateEvent(_Data, @_event_onBeep, ob);
end;

end.