Как это сделать?

← →
Triax © (2007-07-08 12:01) [0]

Необходимо считывать данные из компонента TLabel другого приложения.

← →
Юрий Зотов © (2007-07-08 12:25) [1]

> Triax © (08.07.07 12:01)

Начнем сначала - почему Вы решили, что эта надпись является именно Дельфишным компонентом TLabel, а не чем-то другим?

← →
Shamansky_ne (2007-07-08 12:50) [2]

Проверь программу с помощью PE iDentifier (или чего нибудь похожего, что определяет компилятор), а там уже видно будет что дальше делать

← →
Triax © (2007-07-08 12:56) [3]

Декомпилировал программу с помощью DEDE компонент ТStaticText имя stZenit

← →
Triax © (2007-07-08 12:59) [4]

Декомпилировалось все полность но из за использования в программе собственных компонентов обратная компиляция невозможна.

← →
Triax © (2007-07-08 13:02) [5]

По сути нужно только увеличить размер данного компонента в этом приложении и размер шрифта.
Но декомпилированная программа обратно не компилируется.
Думаю выход в дополнительной программе которая просто будет считывать этот компонент по таймеру и выводить в требуемых размерах

← →
Dib@zol © (2007-07-08 13:12) [6]

procedure ChangeText(ctlType, ctlName, newText:PChar)
var
W : HWND;
begin
W:=FindWindow(ctlType, ctlName);
SetWindowText(W, newText);
end;

...

ChangeText("ТStaticText", nil, "ТвойНовыйТекст");

← →
Triax © (2007-07-08 13:14) [7]

Что делать окно без имени. Form1.Caption:="";

← →
Dib@zol © (2007-07-08 13:19) [8]

> Triax © (08.07.07 13:14) [7]

Мдя. ChangeText("ТStaticText", nil, "");

← →
Triax © (2007-07-08 13:40) [9]

ChangeText("TStaticText", nil, "");

W:=FindWindow(ctlType, ctlName);
if W <> 0 then
ShowMessage("нашел")
else
ShowMessage("не нашел");

Не находит с пустым именем

Если есть имя то находит

← →
Dib@zol © (2007-07-08 13:45) [10]

Ах да. Попробуй так: ChangeText("STATIC", nil, "");
Я ж забыл что TStaticText тоже построен на STATIC"e.

← →
Gydvin © (2007-07-08 15:18) [11]

> Triax © (08.07.07 13:02) [5]
> По сути нужно только увеличить размер данного компонента
> в этом приложении и размер шрифта.

Попробовать ресторатор или ресхакер

← →
Юрий Зотов © (2007-07-08 15:38) [12]

> Triax © (08.07.07 12:56) [3]

1. Вам повезло. ТStaticText - это не TLabel, он имеет окно, с которым можно работать. С TLabel все было бы намного сложнее.

2. FinWindow ищет ТОЛЬКО окна верхнего уровня, а Вам нужно найти ДОЧЕРНЕЕ окно. Используйте FindWindowEx (или FindWindow с GetWindow). И не забудьте, что окно, которое Вы ищете, может лежать и на другом (промежуточном) дочернем окне, а не обязательно на окне верхнего уровня.

← →
homm © (2007-07-09 10:18) [13]

> По сути нужно только увеличить размер данного компонента
> в этом приложении и размер шрифта.

Restorator в помошь.

← →
Triax © (2007-07-09 13:41) [14]

Компонент находит, но на форме их три как найти каждый.
Находит только всегда один!

← →
homm_ro (2007-07-09 13:43) [15]

> Компонент находит

Кто?

← →
Юрий Зотов © (2007-07-09 14:23) [16]

> Triax © (09.07.07 13:41) [14]

Если бы Вы прочитали справку по тем функциям, которые Вам подсказали, то этот вопрос бы не возник.

← →
homm_ro (2007-07-09 14:31) [17]

FindWindowEx находит только по имени класса TStaticText один компонент а их три

← →
homm_ro (2007-07-09 15:35) [19]

Пилять, прочти уже [13] и [17]!

Да читал и пробовал не получается.

А ты 2 раза попробуй

Я пробовал и это не выход.
Ресурс повреждён (вероятно файл сжат или зашифрован).

Воот! Теперь более понятно. Теперь ищем в инете утилиту для определения упаковщика, например "pe shiffer" (она идет в составе Pe Tools), затем на основе показаний этой утилиты подбираем нужный унпакер. Благо для большенства пакеров уже давно есть автоматические унпакеры

Почти все получилось. Спасибо всем за оказанную поддержку.

Как это сделать? Найти похожие ветки