handle controlов в чужой программе

← →
chips (2002-11-21 12:52) [0]

Можно ли получить список всех контролов в чужом окне и их handle ? , заранее спасибо за намеки...

← →
Song (2002-11-21 12:56) [1]

GetWindow()/EnumChildWindows()

← →
Ru (2002-11-21 13:01) [2]

FindWindow, FindWindowEx - тоже не плохо

← →
Игорь Шевченко (2002-11-21 13:05) [3]

Ru © (21.11.02 13:01)

Плохо. Даже очень плохо.

Автору: откройте страшную тайну, плз. Зачем надо регулярно работать с чужими программами, с кнопками, контролами, пунктами меню и т.д. Что за задачи такие интересные вы решаете ?

Поделитесь, плз

← →
Ru (2002-11-21 13:22) [4]

>Игорь Шевченко © (21.11.02 13:05)

у меня очень даже хорошо, имею необходиму программу как мне надо.

>Зачем надо регулярно работать с чужими программами, с

лично мне надо было получать данные из чужой проги - одна прога очень неплохо их обрабатывала.
Вообще всем желающим научится с чужими прогами играться есть на Королевстве дельфи пару статеек.

← →
Игорь Шевченко (2002-11-21 13:50) [5]

Ru © (21.11.02 13:22)

Список всех контролов по FindWindow ? Поделись, это очень интересно...

> Вообще всем желающим научится с чужими прогами играться
>

Нахрена ?
Сдается мне, что все вопросы такого рода направлены на выяснение способов сделать кому-то пакость...

← →
Ru (2002-11-21 14:22) [6]

ParentHandle:=FindWindow(nil,NameParentWindow);
ChildHandle:=FindWindowEx(ParentHandle,nil,nil,nil);
...
ChildHandle:=FindWindowEx(ParentHandle,nil,ChildHandle,nil);

← →
Игорь Шевченко (2002-11-21 14:30) [7]

Ru © (21.11.02 14:22)

До EnumWindows и GetWindow современная наука разумеется не дошла...

← →
cdadmitriy (2002-11-21 15:04) [8]

Все ОЧЕНЬ просто ТЕКСТ не причесон но работает

function GetTextMy(wnd:hwnd):string;
var p:array [0..256] of char;
begin
GetWindowText(wnd,p,255); result:=strpas(p);
end;

function GetMyData(wnd:hwnd):string;
var p:array [0..256] of char;
begin
SendMessage(wnd, WM_GETTEXT, Sizeof(p),Integer(@p));
result:=strpas(p);
end;

function EnumChildProc(h : hWnd; lParam : LongInt): BOOL; stdcall;
Var lpBuffer : PChar;
begin
result:=true;
if (h=0) then Exit;
GetMem(lpBuffer, 255);

try

if GetClassName(h, lpBuffer, 255) > 0 then
Form1.RichEdit1.Lines.Add("=Class={"+StrPas(lpBuffer)+"}=Control={"+GetTextMy(h)+"}=data={"+GetMyData(h)+"}");

finally
FreeMem(lpBuffer, sizeof(lpBuffer^));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var INP:hwnd;
begin
RichEdit1.Lines.Clear;
INP:=FindWindow(nil, PChar(Edit3.Text));
EnumChildWindows(INP,@EnumChildProc,0);
end;

← →
cdadmitriy (2002-11-21 15:07) [9]

Далее зная ClassName посылаешь текст (WM_SETTEXT)

← →
Игорь Шевченко (2002-11-21 15:10) [10]

← →
cdadmitriy (2002-11-21 15:24) [11]

← →
cdadmitriy (2002-11-21 15:29) [12]

И можно писать (write) на опреленные Control менять
их названия и вообще Я думаю ВСЕ что хочешь

← →
chips (2002-11-21 18:14) [13]

Огромные пасибушки , особая благодарность cdaDmitriy ,
если бы импортные программисты были более отзывчивы на переделку своих программ типа "without support....,...AS IS.."
и т.п. ,я бы остался без работы...

handle controlов в чужой программе Найти похожие ветки