Народ, такой вопрос, не знаю разбирался он уже или нет, по форуму трафик не позволяет много лазить.
Вопрос такой: требуется узнать размеры мессаджбокса у другой программы.Какой функцией это можно реализовать на делфи?

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

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

-----
Недостаточно только получить знания:надо найти им приложение

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

Я хочу написать на делфи маленькую прогу, которая будет нажимать на кнопочку в другой проге(тоже делфийской), на другой проге после нажатия вылетает мессаджбокс, и мне надо узнать его размеры и передать вмою прогу. Вот так.
С помощью какой API это можно реализовать?
Я где-то видел вот такую фунцию, она возвращает размер рабочей области окна (уже без заголовка, меню и т.д.) в глобальных экранных координатах.

procedure GetClientRect(Wnd: HWnd; var Rect: TRect);

Интересно она подойдет?

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

Electrod
Да, этой апи как раз и надо пользоваться. Но сначала хэндл окошка месаджа надо найти через FindWindow. Тока тормознуто получится без хуков или перехвата апи, т.к. тебе придётся периодически по таймеры проверять окна. Хотя хз, как те удобнее делай

-----
Недостаточно только получить знания:надо найти им приложение

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

Ок, пасибо, пойду разбираться.

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

Electrod
Ты не тот подход решил юзать. Сперва определяешь хэндл окошка, затем хэндл нужной тебе кнопки на нем (FindWindowEx), затем шлешь кнопке сообщение BM_CLICK (SendMessage).

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

Ну и для верности можно находить окно не по FindWindow? а по EnumWindows.

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

я когда-то хайдил мессадже-бокс для лингво, вот код, авось пригодится ;)
{
CWnd* pWnd = NULL;
pWnd = FindWindow(_T("LV8_MainWindow"), _T("ABBYY Lingvo"));
if (pWnd)
{
CString strCaption;
CWnd pWndMesgBox;

gp_MsgBoxWnd.m_hWnd = NULL;
EnumWindows(EnumChildProc, NULL);
pWnd->EndModalState();
if (gp_MsgBoxWnd.m_hWnd)
{
gp_MsgBoxWnd.ShowWindow(SW_HIDE);
gp_MsgBoxWnd.DestroyWindow();
}
else
{
pWnd->ShowOwnedPopups(FALSE);
}
}
}

BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
TCHAR cur_caption[100];
::GetWindowText(hwnd, cur_caption, 100);
if (cur_caption == g_ABBYYCaption)
{
gp_MsgBoxWnd.Attach(hwnd);
return FALSE;
}

return TRUE;
}

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

Ara
Спасибо! в принципе я как - то и собиралсез поиск окна по FindWindow и посылке ему SendMessage на tab и Ок.
HoBleen
На счет этого подумаю.
Myk
Спасибо за код, думаю пригодится.
Всем огромный сенкс, только меня больше интересует функция определения размера месаджбокса чужой проги и возврата этих размеров в мою прогу.
К то нить что нибудь знает про эту функцию GetClientRect(Wnd: HWnd; var Rect: TRect), или может еще какие есть?

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

MSDN знает 100%. Вот, например:
GetWindowRect
The GetWindowRect function retrieves the dimensions of the bounding rectangle of the specified window. The dimensions are given in screen coordinates that are relative to the upper-left corner of the screen

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

Electrod
Лень не есть хорошо - все данные для реализации цели тебе даны. Ищи описания и примеры использования. MSDN в этом плане рулит

[ADDED]
Знаете, чем мне ещё не нравится делфи с вб? Человек, написавший пару программ с компонентами и функциями языка считатет, что он куль программер и куль кракер и ща он забацает и прот, и кракми и тулзу крутутю, а потом начинает спрашивать, а какой функцией делфи или васика выключить компьютер, скрыть окно, подвинуть окно, узнать размеры и т.д. и т.п. Причём им надо в итоге не просто названия функций API, они не могут найти ничего по ним и понять ничего не могут, а всё самим написать, дать пример кода с комментариями и статью написать мля. Это всё IMHO, потому как просто утомило

-----
Недостаточно только получить знания:надо найти им приложение

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

Rascal
Спасибо! Я тут более менее разобрался.! =)
С помощью этой функции вроде как я понял можно узнавать не размеры сомого мессаджбокса, а расстояния слева, справа.
Вот пример:

begin
WindowName:=PChar(Form1.Edit1.Text);
Wd := FindWindow(nil, WindowName);

GetWindowRect(Wd,R);

Form1.Label1.Caption:=IntToStr(R.Left)+ '-'+
IntToStr(R.Top) + '-'+
IntToStr(R.Right) ;
end;

Теперь при разных мессаджбоксах (разной длины) - разные цифры! так что работает!=)
Всем спасибо!!!


[ADDED]
Rascal
А я и не просил - дайте мне функцию ,кусок кода, а еще лучше чей-нить опен сорс!
Я лишь хотел узнать название функции(API) и подойдет ли GetClientRect и GetWinRect! и сидел потом разбирался!!!
Я конечно понимаю, что крутой программер должен знать название всех Api наизусть и что они делают =), но я и не говорил что я крутой программер.


IMHO так дела тоже не делаются!

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

Electrod
Если ты вычтешь из bottom top получишь высоту, а из right вычтешь left получишь ширину. Вот и вся история, делов то.

Ну вообще я не только тебя, я обощил виденные здесь сообщения.
Electrod пишет:
Я лишь хотел узнать название функции(API) и подойдет ли GetClientRect и GetWinRect! и сидел потом разбирался!
Вообще как обычно делается - получаем ответ, в котором указана функция, разгребаем тонны литературы и находим ответ. Литертура прежде всего это MSDN и доки с средой разработки, если она не от МС, и интернет конечно, пишем прогу, смотрим на резалт. Если не компилится - один вопрос, если не те данные возвращает - другой. Если Не нашёл, пишешь что не нашёл. Но по базовым апи инвы ПОЛНО, не поверю, что не нашёл ни описания ни примера.

Electrod пишет:
Я конечно понимаю, что крутой программер должен знать название всех Api наизусть и что они делают =)
Не, крутые программисты знают ровно столько апи, сколько им нужно для работы. Все апи врядли кто знает. Просто нужно уметь искать то, что надо. Это очень полезное и важное свойство и способность программиста. Развивай её, и будешь приближаться к крутым

Electrod пишет:
IMHO так дела тоже не делаются!
Не понял о чём

-----
Недостаточно только получить знания:надо найти им приложение

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

Rascal

Спасибо за вычисление высоты и ширины, мне это пригодится, но пока не особо надо.Мне лишь надо было узнать, что размер мессаджбокса изменился. =)
Про апи ,я нашел инфу ,главное было узнать название. Прочитал - вроде оно.Но примеров небыло, вот долго и копался!

Насчет "IMHO так дела тоже не делаются!" не обращай внимание- бред написал =)))
В общем спасибо всем еще раз!!!

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