Есть две программы в которых мне нужно кое-то химичить. Причем не очень охото повторять кучу требуемых операций. Когда вполне реально написать программу которая будет сама все делать а я буду забирать только результат. Написать планирую на Delphi. Прочитал я про Windows Messages, принцип понял. Вот где мне взять справочник этих самых сообщений? Т.к. я новичок в сообщениях то WM_* мне мало о чем говорят. Короче мне нужен справочник в котором бы описывалось по действиям а не по названию например мне нужно в окне с заголовком "bla-bla-bla" нажать radioButton и просто кнопку программно. Или допустим считать из грида значеие програмно. Где такое взять?

| Сообщение посчитали полезным:

Единственный полный справочник по разработке для Вынь - MSDN, на русский в основном переводят только часто используемые функции. Поставляется совместно с MS Visual Studio, можно поставить отдельно.

Cracker Free пишет:
не нужно в окне с заголовком "bla-bla-bla" нажать radioButton и просто кнопку программно.
Используя функцию FindWindow, находим окно с заголовком "бла-бла", находим необходимый контрол и посылаем ему сообщение BM_CLICK.

Cracker Free пишет:
Или допустим считать из грида значеие програмно
Опять находим необходимое окно (для Grid, класс окна будет - ListBox), для считывания содержимого строки, посылаем сообщение LB_GETTEXT.

Там все описано, даны примеры.

| Сообщение посчитали полезным:

Cracker Free пишет:
Вот где мне взять справочник этих самых сообщений
В разделе "скачать" по моему есть справочник по API фунуциям

| Сообщение посчитали полезным:

Зайдите в раздел программирование там есть справочник по WinAPI функциям

| Сообщение посчитали полезным:

Cracker Free пишет:
Где такое взять?

Да, если английского не знаешь, то сложно. Но все абсолютно WM никем не переведены.Вот приаттачил.Почитай

3820_20.12.2006_CRACKLAB.rU.tgz - api_help_changes.zip

| Сообщение посчитали полезным:

btCode пишет:
Используя функцию FindWindow, находим окно с заголовком "бла-бла"
это понятно я могу найти окно и уничтожить его (example)
var
x:hWnd;
begin
x:=FindWindow(nil, 'Mozilla Firefox');
if x=0 then exit;
SendMessage(x, WM_DESTROY, 0,0);
end;
btCode пишет:
находим необходимый контрол и посылаем ему сообщение BM_CLICK
вот тут НЕПОНЯТНО, допустим на форме есть BitBtn компонент с именем 'OK', как получить его "адрес", с формой все было понятно, находишь заголовок окна а тут компонент находится внутри окна, если допустим искать:
b:=FindWindow('BitBtn', 'OK');
то получается что в нескольких окнах тоже может быть этот компонент и тогда что?
SendMessage(b, bm_Click, 0,0); // а потом вот так?
думаю если вы мне объсните этот момент с этим (см. ниже) я разберусь сам
а может кто-нить примеры привести (как выбирать пункты меню и заходить в них; как жать на radioButtons, BitBtn, Buttons; как выбирать пункты в StringGrid, ValueListEditor;)
помогите, объясните.

| Сообщение посчитали полезным:

Cracker Free пишет:
то получается что в нескольких окнах тоже может быть этот компонент и тогда что?

сначала ищи главное окно - FindWindow, а потом ищи в нём дочернее с помощью
FindWindowEx

main := FindWindow('TForm1','blabla')
hndl := findwindowex(main, 0, 'Tknopka','Ok')';

-----
[nice coder and reverser]

| Сообщение посчитали полезным:

Hellspawn, спасибо работает в лабараторных условиях. Но в боевых ситуация оказалась такая
1. Программа на Delphi -->DeDe -->и я знаю компоненты (классы)
2. Нужно добраться до BitBtn который находится в структуре:
на mainforme
{TGroupBox}
{TPanel}
TBitBtn - нужная кнопка
{/TPanel}
{/TGroupBox}

такая "древовидная" схема почти на все нужные мне компоненты. Вопрос - Как добраться до адреса TBitBtn.
я пытаюсь делать так, комменты в run-time

var main, hndl, hndl2, hndl3:hwnd;
begin
main := FindWindow(nil,'Ломаемая Программа. Версия 5.9');
if main=0 then edit1.Text:='не найден main'; //все проходит гладко

hndl := FindWindowEx(main, 0, 'TGroupBox','Определение юзера');
if hndl=0 then edit1.Text:='не найден TGroupBox'; //вот тут edit1 отображает что 'не найден TGroupBox'

hndl2 := FindWindowEx(hndl, 0, 'TPanel','');
hndl3 := FindWindowEx(hndl2, 0, 'TBitBtn','OK');
SendMessage(hndl, bm_Click, 0,0);
end;

И вот где

| Сообщение посчитали полезным:

btCode пишет:
для Grid, класс окна будет - ListBox
хм... может я классы для нужных компонетов неправильно написал? Может TGroupBox это... незнаю. кто знает?

| Сообщение посчитали полезным:

попробуй InqSoft Window Scanner он покажет класс окна, текст и дерево окон..

-----
[nice coder and reverser]

| Сообщение посчитали полезным:

InqSoft Window Scanner - хорошая программа давно искал, но я все же до сих пор не могу сформировать сообщения программе. Я новичок в программировании поэтому не судите строго если чего не понимаю. Люди пожалуйста запостите парочку другую примеров сформированных сообщений на дэльфях:
1) Как входидь в главное меню программы (т.е. допустим как мне нажать Файл->Выход)
2) Как считать данные из ValueListEditor (компонент похож на инспектор свойств в некоторых IDE средах программирования)
3) Как жать на радио-батоны (несколько радио-батонов как их выбирать)
4) Как жать на значения Grid'a (т.е. у меня список - первое, второе... как выбрать допустим первое)
5) Как передвигаться в ValueListEditor по ключам/значениям
Только не подумайте что мне тут делать нечего я всякие штучки придумываю. Вы очень сильно облегчите мне работу если поможете. Кол-во моей нудной работы у меньшится в 2 а то и 3 раза.

| Сообщение посчитали полезным:

Cracker Free пишет:
. Люди пожалуйста запостите парочку другую примеров сформированных сообщений на дэльфях:
А поискать это на Дельфовских форумах нельзя ?! Здесь же не детский сад.
Кстати примеры с имитацией нажатия кнопок из Дельфи на нашем форуме давали в этом году несколько раз.

| Сообщение посчитали полезным:

В Borland'ах была вроде программа WinSight для этого. Поискал у себя в дельфях одни хелпы.

А нет есть - WS32.EXE.

| Сообщение посчитали полезным:

Ratinsh чо-то она не хочет сообщения мониторить?

| Сообщение посчитали полезным:

флажок в меню View - Messages Trace
ну и необходимые флажки меню Messages - Options
попробуй в меню Messages - All Windows
start-stop это как бы понятно
нужно конечно поэкспериментировать

| Сообщение посчитали полезным:

всё получалось пока я не столкнулся с этим:
TFMain //bla-bla proga
TPanel //caption'a нет (пустой)
TGroupBox //bla group
TBitBtn //bla bb

var1:= FindWindow(nil,'bla-bla proga');
var2:= FindWindowEx(var1, 0, 'TPanel','');
var3 := FindWindowEx(var2, 0, 'TGroupBox','bla group'); // ВОТ ТУТ ОН НЕ МОЖЕТ ЕГО НАЙТИ ПОЧУМУ????
var4:= FindWindowEx(var3, 0, 'TBitBtn','bla bb');
SendMessage(var4, BM_CLICK, 0,0);

| Сообщение посчитали полезным:

всё получалось пока я не столкнулся с этим:
TFMain //bla-bla proga
TPanel //caption'a нет (пустой)
TGroupBox //bla group
TBitBtn //bla bb

var1:= FindWindow(nil,'bla-bla proga');
var2:= FindWindowEx(var1, 0, 'TPanel','');
var3 := FindWindowEx(var2, 0, 'TGroupBox','bla group'); // ВОТ ТУТ ОН НЕ МОЖЕТ ЕГО НАЙТИ ПОЧУМУ????
var4:= FindWindowEx(var3, 0, 'TBitBtn','bla bb');
SendMessage(var4, BM_CLICK, 0,0);

| Сообщение посчитали полезным: