Индикатор сетевой активности

//индикатор сети-
procedure traygraph(ch:thandle;u1,u2:real;c1,c2,fon:tcolor;hint:shortstring);
var //no: TNotifyIconData;
    Hicon1: HIcon;
    //
    IconSizeX,IconSizeY,x,y:integer;
    maxi,maxo:real;
    AndMask : TBitmap;
    XOrMask : TBitmap;
    IconInfo: TIconInfo;
    Icon: TIcon;
begin
 //рисунок
 IconSizeX:= GetSystemMetrics(SM_CXICON);
 IconSizeY:= GetSystemMetrics(SM_CYICON);
 //Create "And" mask
 andMask:= TBitmap.Create;
 AndMask.Monochrome:= true;
 AndMask.Width := IconSizeX;
 AndMask.Height:= IconSizeY;
 //Draw "And" mask
 AndMask.Canvas.Brush.Color:= fon;
 AndMask.Canvas.Rectangle(0,0,IconSizeX,IconSizey);
 //маска
 XOrMask:= TBitmap.Create;
 XOrMask.Width := IconSizeX;
 XOrMask.Height:= IconSizeY;
 XOrMask.Canvas.Brush.Color:= fon;
 XOrMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));
 
 //управление-1 (исходящий/входящий)
 inc(minc);if minc=1 then for x:=0 to 31 do begin mi[x]:=1;mo[x]:=1;end;
 //нормализация
 y:=0;
 //maximum
 maxo:=u2;mo[0]:=u2;maxi:=u1;mi[0]:=u1;
 for x:=0 to 30 do begin
  if mo[x+1]>maxo then maxo:=mo[x+1];
  if mi[x+1]>maxi then maxi:=mi[x+1];
 end;
 for x:=0 to 31 do begin
  if (maxo<>0)then try mo[x]:= trunc(31*mo[x]/maxo);except end;
  if (maxi>0)then try mi[x] := trunc(30*mi[x]/maxi);except end;
 end;
 //
 for x:=0 to 31 do begin
  XOrMask.Canvas.Pen.Color  := c2;
  XOrMask.Canvas.Brush.Color:= c2;
  XOrMask.Canvas.MoveTo(32-x,32);
  XOrMask.Canvas.LineTo(32-x,32-trunc(mo[x]));
  y:= y+trunc(mi[x]);
  //
  XOrMask.Canvas.Pen.Color  := c1;
  XOrMask.Canvas.Brush.Color:= c1;
  XOrMask.Canvas.MoveTo(32-x,32);
  XOrMask.Canvas.LineTo(32-x,32-trunc(mi[x]));
 end;
 //средний уровень
 y:=trunc(y/32);
 XOrMask.Canvas.Pen.Color  :=c1;
 XOrMask.Canvas.Brush.Color:=c1;
 XOrMask.Canvas.MoveTo(1,32-y);
 XOrMask.Canvas.LineTo(32,32-y);
 //сдвиг
 for x:=31 downto 1 do
  begin mi[x]:=mi[x-1];mo[x]:=mo[x-1];end;
 
 //иконка
 Icon:= TIcon.Create;
 IconInfo.fIcon   := true;
 IconInfo.xHotspot:= 0;
 IconInfo.yHotspot:= 0;
 IconInfo.hbmMask := AndMask.Handle;
 IconInfo.hbmColor:= XOrMask.Handle;
 Icon.Handle      := CreateIconIndirect(IconInfo);
 AndMask.Free;
 XOrMask.Free;
 
 //tray
 HIcon1:=icon.Handle;
 with IconData do begin
  cbSize:=Sizeof(TNotifyIconData);
  Wnd:=ch;
  uID:=0;
  UFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
  //hint
  StrPLCopy(szTip,hint,SizeOf(szTip)-1);
  HIcon:=HIcon1;
  uCallBackMessage:= TRAY_CALLBACK
 end;
 Shell_NotifyIcon(NIM_ADD,@IconData);
 Shell_NotifyIcon(NIM_MODIFY,@IconData);
 Icon.Free
end;
 
 
 
procedure _net(h:thandle);
//параметры сети
var FLibHandle : THandle;
    Table      : TMibIfTable;
    i,k,Size   : integer;
    fm,pin,pout: shortstring;
    vi,vo      : real;
    //накопление-
    netinfo    : string;
    neti,neto  : array of integer;
begin
 FLibHandle:= LoadLibrary('IPHLPAPI.DLL');
 if FLibHandle= 0 then Exit;
 @GetIfTable:= GetProcAddress(FLibHandle, 'GetIfTable');
 if not Assigned(GetIfTable) then FreeLibrary(FLibHandle);
 //
 Size:= SizeOf(Table);
 netinfo:= '';
 if GetIfTable(@Table, @Size,false ) = 0 then begin //функции
  setlength(neti,Table.dwNumEntries);
  setlength(neto,Table.dwNumEntries);
  setlength(netio,Table.dwNumEntries);
  setlength(netoo,Table.dwNumEntries);
  for i:= 0 to Table.dwNumEntries-1 do begin
   neti[i]:= table.Table[i].dwInOctets;
   neto[i]:= table.Table[i].dwOutOctets;
   //
   if not netold then begin
    if i= Table.dwNumEntries-1 then netold:= true;
    if ini.ReadString('NET DATE','day','')<>datetostr(date) then begin
     ini.WriteInteger(string(Table.Table[i].bDescr),'inp_data_sum',ini.readInteger(string(Table.Table[i].bDescr),'inp_data_sum',0)+
      ini.readInteger(string(Table.Table[i].bDescr),'inp_data_day',0));
     ini.WriteInteger(string(Table.Table[i].bDescr),'out_data_sum',ini.readInteger(string(Table.Table[i].bDescr),'out_data_sum',0)+
      ini.readInteger(string(Table.Table[i].bDescr),'out_data_day',0));
    end;
    netio[i]:= ini.readInteger(string(Table.Table[i].bDescr),'inp_data_sum',0); //чтение данных-
    netoo[i]:= ini.readInteger(string(Table.Table[i].bDescr),'out_data_sum',0)
   end;
   ini.writeInteger(string(Table.Table[i].bDescr),'inp_data_day',neti[i]); //запись данных-
   ini.writeInteger(string(Table.Table[i].bDescr),'out_data_day',neto[i]);
 
   //
   if ((neti[0]+netio[0])/1024/1024)>1 then begin fm:=' MB'; k:= 1024 end else begin fm:=' kB'; k:=1 end;
   pin := 'inp  -'+ formatfloat(' 000.0',(neti[0]+netio[0])/1024/k);
   pout:= 'out -' + formatfloat(' 000.0',(neto[0]+netoo[0])/1024/k);
   //входящая cкорость
   vi:=((neti[0]+netio[0])-oldvi)*10/(2*1024);
   //исходящая-
   vo:=((neto[0]+netoo[0])-oldvo)*10/(2*1024);
   //на иконку
   traygraph(h,vi,vo,cllime,clred,clteal,copy(string(Table.Table[0].bDescr),1,25)+chr(13)+
    pin+fm+chr(13)+pout+fm//+chr(13)+'Cеть: '+inttostr(table.Table[0].dwSpeed div 1000000)+' Mбит/c'
    );
   //траффик. информация адаптера-
   if ((neti[i]+netio[i])/1024/1024)>1 then begin fm:= ' MB'; k:= 1024 end else begin fm:= ' kB'; k:= 1 end;
   netinfo:= netinfo + '• ' + string(Table.Table[i].bDescr) + ''#10 +
             'I/O' + formatfloat('  000.0',(neti[i]+netio[i])/1024/k)+ '/' + formatfloat('000.0',(neto[i]+netoo[i])/1024/k) + fm + ''#10#10
             ;
 
  end
 end;
 
 //траффик. все адаптеры-
 nettxt:= copy(netinfo,1,length(netinfo)-2);
 if ini.ReadString('NET DATE','day','')<>datetostr(date) then
  ini.writeString('NET DATE','day',datetostr(date));
 //
 FreeLibrary(FLibHandle);
 oldvi:= neti[0]+netio[0]; oldvo:= neto[0]+netoo[0]
end;
//=======