![]() |
|
|
#1
|
||||
|
||||
|
как "прочитать" значение всех Labelов в приложении не принадлежащему данному< если оно находится в развернутом состоянии более полминуты
|
|
#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 |