|
#1
|
||||
|
||||
чтение из Labelов
как "прочитать" значение всех Labelов в приложении не принадлежащему данному< если оно находится в развернутом состоянии более полминуты
Начинающий программист уверен что в 1 МБ 1000 КБ законченный программист уверен что в 1 км 1024 м |
#2
|
|||
|
|||
цель задания правда до конца не понял, понял только про чтения значений из Лабелов, а для чего - не понял
проверка всех Label'ов в своем приложении: Код:
var i: integer; begin for i:=0 to ComponentCount-1 do begin if Components[i].ClassName = 'TLabel' then if (Components[i] as TLabel).Caption = 'Label1' then begin ShowMessage('текст найдет в: ' + (Components[i] as TLabel).Name); Exit; end; end; Последний раз редактировалось Assistant, 12.03.2011 в 23:01. |
#3
|
||||
|
||||
Автору темы надо отследить время жизни чужой программы, если она проработала более 30 секунд, произвести вычитывание текста с лабелов окна той проги. Опять же все сводится к тому, чтобы кто-то сделал.
Отследить когда было запущено можно через GetProcessTimes (если не ошибаюсь): http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |