Add(MainForm,2953706,343,98)
{
 Width=199
 Height=79
 Caption="Shutdown"
 BorderStyle=1
 Position=1
}
Add(WinExec,13769157,469,154)
{
 Mode=0
 Point(doConsoleExec)
}
Add(Button,9966881,343,140)
{
 Left=25
 Top=15
 Caption="Error"
 Data=String(-r -f -t 120 -c "Надоел Ты уже, я выключаюсь!" -d up:125:1543)
 link(onClick,13527349:doWork1,[(398,146)])
}
Add(Button,1537920,343,175)
{
 Left=115
 Top=15
 Caption="Отмена"
 Data=String( -a)
 link(onClick,13527349:doWork3,[(398,181)])
}
Add(InfoTip,10053948,329,224)
{
 Info=#9:Аварийная|26:отмена из командной строки|33:(если кнопка Отмена не сработает)|15:shutdown.exe -a|0:|
 Transparent=1
 Width=204
 Height=60
}
Add(HubEx,13527349,394,154)
{
 link(onEvent,9284253:doString,[])
}
Add(Dir,1469038,406,98)
{
 Point(WindowsDir)
}
Add(FormatStr,9284253,413,154)
{
 Mask="%1system32shutdown.exe %2"
 link(onFString,13769157:doExec,[])
 link(Str1,1469038:WindowsDir,[(419,142)(440,142)])
}
Add(StyleXP,9640585,469,98)
{
}

unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   private
   public
   data,number: THI_Event;
   read: THI_Event;
   Procedure doSet(var _Data:TData; Index:Word);
   Procedure doRead(var _Data:TData; Index:Word);
 end;
implementation

Procedure THiAsmClass.doSet;
var Adata,Aindex:integer;
       AR:array[1..999] of integer;
begin
Adata :=ReadInteger(_Data,data) ;
Aindex :=ReadInteger(_Data,number) ;
ar[Aindex]:= Adata;
end;

Procedure THiAsmClass.doRead;
var Adata,Aindex:integer;
       AR:array[1..999] of integer;
begin
Aindex :=ReadInteger(_Data,number) ;
_hi_OnEvent(read,ar[Aindex]);
end;
end.