Помогите программно прочитать текст из ShowMessage

[_Casper_]

Помогите программно прочитать текст из ShowMessage(); которое создаётся браузером, например TChromium или TWebBrowser.

[JUDAS]

FindWindow, и читай

[min@y™]

программно прочитать текст из ShowMessage

а оно того стоит? куча сложного трудноотлаживаемого winapi-кода с такой фигнёй на выходе...

[_Casper_]

Сообщение от JUDAS

FindWindow, и читай

Имя окна можно прочитать не проблема а вот как текст в нём....?

Сообщение от min@y™

а оно того стоит? куча сложного трудноотлаживаемого winapi-кода с такой фигнёй на выходе...

Да оно того стоит! Если этот текст больше не от куда взять!

[min@y™]

Проверил на Application.MessageBox().
Тут текст выводится в оконном элементе, значит, его можно достать.

[Krasiosoft]

_Casper_, можете с помощью Spy++ посмотреть есть ли дескриптор у надписи в окне, которое появляется после вызова ShowMessage(). Но большая вероятность того, что его там просто не будет.

[Alex11223]

Какой еще Application.MessageBox? Речь вроде про JS alert в браузерах. http://www.programmersforum.ru/showthread.php?t=281614

Если автор все правильно понял, а то может это вообще просто свой диалог на JS/HTML, тогда DOM смотрите.

Но да, это плохой способ, лучше ищите другие варианты, анализируйте JS код и HTTP запросы (Fiddler и т.п.), смотрите откуда берется эта информация. Или посмотрите документацию по компонентам. Не знаю насчет Дельфийского TChromium, но в CefSharp (и других аналогах на Chromium/WebKit типа Awesomium) были события типа JsDialogHandler для их перехвата и обработки.

Имя окна можно прочитать не проблема а вот как текст в нём....?

WM_GETTEXT

[min@y™]

Какой еще Application.MessageBox? Речь вроде про JS alert в браузерах.

я предположил, что алерт как раз и показывается функцией MessageBox. Согласен, что не во всех браузерах. Но если аффтару приспичило - проверит сам.

[_Casper_]

WM_GETTEXT - пробовал вот 2 примера, что нашёл в инете.

var
s, ss: string;
ForeWnd,FocusWnd:HWnd;
p:PChar;

h := WindowFromPoint(Mouse.CursorPos);
SetLength(s, SEndMessage(h, WM_GETTEXTLENGTH, 0, 0)+1);
SEndMessage(h, WM_GETTEXT, length(s), Integer(PChar(s))); SetLength(s, lStrLen(PChar(s)));
Label1.Caption := s;

ForeWnd:=GetForegroundWindow;
FocusWnd:=GetFocus;
p:=StrAlloc(20);
SendMessage(FocusWnd,WM_GETTEXT,WPa ram(20),LParam(p));
ss:=p;
label2.Caption:=ss;

Для примера создал showmessage('Test');

При наведении курсора мышки на различные компоненты показывает их текст, из showmessage показывает заголовок и кнопку а вот текст не хочет.

Насчёт SPY++ 10 Version новей не нашёл, поюзал, но нечего хорошего не нашёл

[Alex11223]

Ну видимо там текст просто рисуется чем-то типа DrawText и все, никакого компонента его хранящего нет.

Так что вряд ли его как-то так получите, только OCR.

Вообще ShowMessage это вроде чисто Дельфийская форма, а не обертка над нативными месседжбоксами. Выше ж речь не про ShowMessage была.