Add(Button,7077563,112,105)
{
 Left=110
 Top=105
 link(onClick,14185135:doWork,[])
}
Add(InlineCode,14185135,168,105)
{
 WorkPoints=#6:doWork|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|49:    procedure doWork(var Data:Tdata; index:word);|5: end;|40:  PTIME_OF_DAY_INFO = ^TIME_OF_DAY_INFO;|27:  TIME_OF_DAY_INFO = record|25:    tod_elapsedt : DWORD;|25:    tod_msecs    : DWORD;|25:    tod_hours    : DWORD;|25:    tod_mins     : DWORD;|25:    tod_secs     : DWORD;|25:    tod_hunds    : DWORD;|27:    tod_timezone : Longint;|25:    tod_tinterval: DWORD;|25:    tod_day      : DWORD;|25:    tod_month    : DWORD;|25:    tod_year     : DWORD;|25:    tod_weekday  : DWORD;|6:  end;|0:|79:  function NetRemoteTOD(Server: PWChar; var pBuffer: PTIME_OF_DAY_INFO): DWORD;|38:     stdcall; external 'NETAPI32.DLL';|53:  function NetApiBufferFree(pBuffer: Pointer): DWORD;|38:     stdcall; external 'NETAPI32.DLL';|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|3:var|25:  TOD: PTIME_OF_DAY_INFO;|5:begin|48:  if NetRemoteTOD('192.43.244.18', TOD) = 0 then|8:   begin|18:      with TOD^ do|52:        _debug(Format('Data %d %d %d Time %d:%d:%d',|35:                          [tod_day,|36:                          tod_month,|35:                          tod_year,|60:                          tod_hours - (tod_timezone div 60),|35:                          tod_mins,|38:                          tod_secs]));|28:      NetApiBufferFree(TOD);|7:   end;|4:end;|0:|4:end.|
}