Как скопировать текст чужого приложения?

[Nikolay-niw32]

Мне нужно скопировать текст с "чужого" текстового поля в своё приложение в ListBox например. Я разобрался как мне найти чужое окно по его имени:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FindWindow(nil, 'Европейская рулетка - EuroGrand Casino') <> 0 then
label1.Caption:= 'Окно естьi'
else
label1.Caption:= 'Окна нет';
end;

А вот как найти в этом чужом окне текстовое поле с текстом и скопировать текст к себе в приложение, я не знаю и информации по данному вопросу в интернете не нашёл.

[r9m]

FindWindowEx - передаёшь туды хендл родителя и ищешь детей... в данном случаи твой листбокс. лист бокс ищи по названию класса - блого он там один _

[SarahConner]

Nikolay-niw32, так у Вас получилось?, если ДА, то не могли бы описать подробнее. Спасибо.

[r9m]

Получать текст нужно отправив сообщение:

сначала получаем кол-во элементов сообщением LB_GETCOUNT.
Потом в цикле получаем значение каждого элемента сообщением LB_GETTEXT, передавая индекс элемента. Надеюсь понятно =\

[SarahConner]

Спасибо за оперативность, но к сожалению на данном этапе моих знаний мне ничего не понятно. Постараюсь разобраться сам по поиску. Если не справлюсь - можно еще разок спросить ненавязчиво?

[r9m]

Вот пример:

1 приложение - это листбокс заполненный какими нить данными (типа сервер)

2 приложение - это форма с листбоксом, и кнопкой, при нажатии на которую, из первого приложения с помощью API копируется каждый элемент в клиентский листбокс.

[SarahConner]

Спасибо, посмотрел, понравилось.
Буду разбираться с деталями.

[Nikolay-niw32]

Люди, спасибо за ответы, но я многого не понимаю =(, даже в терминологии =) т.к. работал на Делфи в других областях (к тому же я самоучка).

Я придумал как сделать программу с которой мой выигрыш в интернет казино будет равен 99,9%. Если ВЫ мне поможете я с вами прогой поделюсь ОБЯЗАТЕЛЬНО =) Без проги мне удалось с 20$ подняться только до 117$ (около 2-х часов играл) и дальше проиграл, т.к. выигрыш был равен всего 94%.

FindWindowEx - передаёшь туды хендл родителя и ищешь детей...
Парни, если честно то ничего не понял =( Можно пожалуйста по детальней а лучше программным языком =) Я так понял мне нужно у этого окна найти все его текстовые поля!? Дальше нужно копировать текст с нужного поля в свой ListBox. Подскажите детально пожалуйста. Или может с кем то из вас =) создадим такую прогу, раз я балда и не догоняю =) !?? Я придумал алгоритм (думаю не я первый) как максимально обезопасить свой депозит когда буду делать ставки. Играя таким образом без программы -это невероятно долго, муторно, надоедливо и не особо интересно, а если прогу сделать то это совсем другое дело.

[Nikolay-niw32]

r9m - Спасибо, довольно интересно =) Сейчас начну экспериментировать..

[DomiNick]

Ну можно ещё так попробовать:

Var H: hWnd;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
H:=WindowFromPoint(Mouse.CursorPos) ; // надо зажать Button1 левой кнопкой мыши, не отпуская кнопку перетащить курсор на нужное текстовое окошко и когда курсор будет на нём - отпустить кнопку...
Label1.Caption:=IntToStr(H); // пусть на всякий случай в надписи пишется "номер" текстового поля...
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SendMessage(H, wm_settext, 0, lparam(PChar('666'))); // поместить в текстовое поле (номер которого на надписи) текст "666"...
end;