Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

мессадж бох - определить хендл [D6, WinXP]

Raptoridzevv © (2006-05-24 17:07:00)
у меня есть messagebox который выдала какаето программа, мне нужно определить что в нем написано не в каптионе а именно в мессадже.... делаю так определяеться тока каптион

procedure TForm1.Button1Click(Sender: TObject);
var
s:hwnd;
z:array [0..100] of char;
begin
s:=FindWindow(nil,'Warning');
SendMessage(s,WM_GETTEXT,100,LongInt(@z));
ShowMessage(z);
end;

GrayFace (2006-05-26 11:05:00) [1]
Leonid Troyanovsky © (24.05.06 21:56) [11]
> Если подгадать с версией дельфи, то можно и без перехвата.

А через RTTI, наверное, и некоторый диапазон версий охватить удастся.

evvcom (2006-05-25 15:50:00) [2]

> в таком случае ты можешь только снять скриншот с окна.

А потом его ФайнРидером, ФайнРидером... :)))

Leonid Troyanovsky (2006-05-24 22:03:00) [3]

> begin...end © (24.05.06 21:57) [12]

> Но не без внедрения.

Конечно.
Все ж - процесс-то чужой.

--
Regards, LVT.

begin...end (2006-05-24 21:57:00) [4]
> Leonid Troyanovsky © (24.05.06 21:56) [11]

Но не без внедрения.

Leonid Troyanovsky (2006-05-24 21:56:00) [5]

> begin...end © (24.05.06 20:42) [10]

> Нету там окна, конечно. Поэтому и [7].

Если подгадать с версией дельфи, то можно и без перехвата.

--
Regards, LVT.

begin...end (2006-05-24 20:42:00) [6]
Нету там окна, конечно. Поэтому и [7].

ANB (2006-05-24 20:05:00) [7]

> Raptoridzevv (24.05.06 19:11) [8]

Спаем посмотри, является ли окном текст на диалоге. Что то мне подсказывает, что не является, в таком случае ты можешь только снять скриншот с окна.

Raptoridzevv (2006-05-24 19:11:00) [8]
Удалено модератором

Сергей М. (2006-05-24 17:58:00) [9]

> Raptoridzevv (24.05.06 17:51) [6]

Смириться и выбросить затею из головы.

Или углубиться в теорию и практику внедрения своего кода в чужие процессы, перехват вызовов API-функций и т.д. и т.п.

Raptoridzevv (2006-05-24 17:51:00) [10]
как же мне быть?)

Сергей М. (2006-05-24 17:46:00) [11]

> его класс TMessageForm

Его как раз и сотворяет дельфийская ShowMessage()

Raptoridzevv (2006-05-24 17:30:00) [12]
его класс TMessageForm

begin...end (2006-05-24 17:24:00) [13]
Значит, это не системный MessageBox, а какой-нибудь MessageDlg или ShowMessage.

Raptoridzevv (2006-05-24 17:22:00) [14]
неа, не пашет(

begin...end (2006-05-24 17:18:00) [15]
> Raptoridzevv (24.05.06 17:07)

> s:=FindWindow(nil,'Warning');

s := FindWindowEx(FindWindow(nil, 'Warning'), 0, 'STATIC', nil);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »