АП..Про компонент TCoolTrayIcon и его аналогов я вкурсе и давно юзаю, но они кроме иконки в трее ничего больше не дают возможности сделать.А мне нада например в место иконки поставить чтоб там отображалось количество Свободного ОЗУ, т.е. нада както передать туда число(значение) из буфера или константы или тотже label, без разницы как но чтоб там отображалось например 1700
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var Ms:TMemorystatus;
begin
GlobalMemoryStatus(MS);
pm.Caption:=FormatFloat('Всего #,###" MB"', MS.dwTotalPhys /1024000);
pn.Caption:=FormatFloat('Свободно #,###" MB"', ms.dwAvailPhys /1024000);
end;
Вопрос как передать на иконку pn.Caption:=FormatFloat('Свободно #,###" MB"', ms.dwAvailPhys /1024000); через лейбл или както напрямую????
Как то на днях пробовал рисовать там но как туда передавать нужную инфу без понятия,