MessageBox в приложении без окна - Общие вопросы Delphi

Олвин · 16.02.2010, 10:28

Возможно глупый вопрос. При выполнении кода

Код:

program Project1;
uses
  Windows;
begin
 if MessageBox(0, '...',
     '...', mb_yesno + mb_iconquestion) = 6 {'Да'} then
 begin

 end;
end.

MessageBox не успевает появиться, как программа завершается. Нужен цикл обработки сообщений? Помнится на ассемблере такая же программа работала как надо...

SERG1980 · 16.02.2010, 10:57

может так

Код:

program Project1;
uses
  Windows;
begin
 if MessageBox(0, '...',
     '...', mb_yesno + mb_iconquestion+MB_SYSTEMMODAL) = idyes then
 begin

 end;
end.

raxp · 16.02.2010, 10:57

MessageBox появляется... delphi6, delphi7

Олвин · 16.02.2010, 11:02

У меня Delphi 7. Раздаётся характерный звук, но программа завершается сразу же. С примером в #2 - то же.

Stilet · 16.02.2010, 11:07

Цитата:

Нужен цикл обработки сообщений?

Ниче не нужно. Эта функа тормозит поток.
Она даже в консольной программе сработает как надо.
Выкладывай полностью код.

Олвин · 16.02.2010, 11:14

Упс... Без директивы

Код:

{$R Icon_Manifest_Version.res}

всё работает... В ресурсе иконка, манифест и версия. Наверное дело в манифесте? Только сути я так и не понял...

16.02.2010, 10:28	#1
Олвин Экспериментатор Форумчанин Регистрация: 16.04.2008 Сообщений: 218	MessageBox в приложении без окна Возможно глупый вопрос. При выполнении кода Код: `program Project1; uses Windows; begin if MessageBox(0, '...', '...', mb_yesno + mb_iconquestion) = 6 {'Да'} then begin end; end.` MessageBox не успевает появиться, как программа завершается. Нужен цикл обработки сообщений? Помнится на ассемблере такая же программа работала как надо... Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс

16.02.2010, 10:57	#3
raxp Старожил Регистрация: 29.09.2009 Сообщений: 9,713	MessageBox появляется... delphi6, delphi7 Разработки и научно-технические публикации :: Видеоблог :: Твиттер Radar systems engineer & Software developer of industrial automation

16.02.2010, 11:02	#4
Олвин Экспериментатор Форумчанин Регистрация: 16.04.2008 Сообщений: 218	У меня Delphi 7. Раздаётся характерный звук, но программа завершается сразу же. С примером в #2 - то же. Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс

16.02.2010, 11:14	#6
Олвин Экспериментатор Форумчанин Регистрация: 16.04.2008 Сообщений: 218	Упс... Без директивы Код: `{$R Icon_Manifest_Version.res}` всё работает... В ресурсе иконка, манифест и версия. Наверное дело в манифесте? Только сути я так и не понял... Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ClientSocket в приложении без формы	Gambler	Работа с сетью в Delphi	5	25.11.2009 17:48
Как быстро найти все видимые окна в приложении?	chandrasecar	Общие вопросы Delphi	2	14.10.2009 14:52
Обработка сообщений в приложении без окон.	kalexi	Win Api	2	26.06.2009 20:12
Потеря фокуса окна в приложении	Dr.Badnezz	Общие вопросы Delphi	4	01.12.2008 23:18

16.02.2010, 10:57	#2
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	может так Код: `program Project1; uses Windows; begin if MessageBox(0, '...', '...', mb_yesno + mb_iconquestion+MB_SYSTEMMODAL) = idyes then begin end; end.`