MessageBox в приложении без окна

[Олвин]

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

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

 end;
end.

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

[SERG1980]

может так

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

 end;
end.

[raxp]

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

[Олвин]

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

[Stilet]

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

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

[Олвин]

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

{$R Icon_Manifest_Version.res}

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