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

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

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

MessageBox без запуска Application.Run()

kapral © (2006-06-07 11:02:00)
после Application->Initialize();
делаю
MVCT=new TMVCT;
если базы данных нет и т.д. выхожу, не вызывая
Application->Run();
но хотелось бы выдавть сообщение пользователю, чего не хватает
вот тут и меня ожидала засада - вызываю ::MessageBox(NULL, и генерируется сообщение об ошибку, которую оловить невозможно
что делать?

Сергей М. (2006-06-08 08:15:00) [1]

> catch (...) разве не ловит?

У тебя MessageBox находится ВНЕблока try..catch !

Ко всему прочему goto-переход в тело finally-блока недопустим.

kapral (2006-06-07 18:06:00) [2]
а catch (...) разве не ловит?
если нет, то подскажите как надо?

Сергей М. (2006-06-07 16:50:00) [3]

> которую оловить невозможно

И где ты ее "ловишь" ? Покажи ..

tesseract (2006-06-07 16:21:00) [4]
А до WinMain MessageBox вызвать нельзя?

kapral (2006-06-07 16:15:00) [5]
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try{
try{
int f=1;
Application->Initialize();
MVCT=new TMVCT;
if(!Start())
{
f=2;
goto end_app;
}
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
f=0;
}

catch (...)
{
f=0;
}
}
__finally
{
End();
Sleep(1000);
end_app : delete MVCT;
if(f==2)

::MessageBox(NULL,"", "",MB_OK) ;
return 0;
}

Сергей М. (2006-06-07 15:00:00) [6]
Приведи полный текст файла проекта..

kapral (2006-06-07 14:19:00) [7]
я же ::MessageBox написал
а не Applicaton->MessageBox();
это вообще не будет работать Application->Run();
не запущена

tesseract (2006-06-07 13:11:00) [8]
странно у меня всегда работало.

Сергей М. (2006-06-07 13:11:00) [9]

> так я же и так и написал
> ::MessageBox

Это ты вызвал метод MessageBox объекта Application, а не одноименную WinAPI-ф-цию

kapral (2006-06-07 12:55:00) [10]
так я же и так и написал
::MessageBox(NULL, и т.д.
тут засада в том, что Application->Run();
запускает обработчик сообщений и ::MessageBox(NULL, и т.д. хотя и не принадлежит окну, но сообщение об ошибке вылетает
а если не использовать ::MessageBox(NULL, все хорошо, только вот беда, что пользователь не понимает, почему нет ничего
у меня работа между несколькими процессами, если процесс (программа не запущена, то нельзя ничего делать другому процессу), вот только как сообщить пользователю, что у него процесс не запущен
самое простое, через ::MessageBox(NULL, -но увы

tesseract (2006-06-07 11:07:00) [11]
Например так :
MessageBox(0, '', '', MB_ICONWARNING or MB_OK);

Сергей М. (2006-06-07 11:05:00) [12]
см. Windows.MessageBox()

Наверх

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