Delphi 2010: Не всегда срабатывает MessageBox

[Altera]

Привет всем!
Ситуация следующая. Если в *.dpr файле объявлена ресурсная директива, то messageBox в нём не срабатывает.

program Project1;

uses
  windows, messages;

{$R *.res}

begin
   messageBox(0, 'Done', 'Box', MB_OK);
end.

и

program Project1;

uses
  windows, messages;

begin
   messageBox(0, 'Done', 'Box', MB_OK);
end.

Delphi 2010; В Delphi 7 работает. Может это баг в 2010. Проверте плиз.

-------------

Вот дошел до того, что в Delphi 2010 надо где-то в uses dialogs добавить. Но что за дебилизма? Это ведь функция WinAPI а dialogs лишних 600kb прибавляет и вообще причём {$R *.res}??

[Kotofff]

Подтверждаю. Есть такое.
Надо поглядеть.

[Altera]

Даже так не работает

program Project1;

{$R *.res}

function showMessage(hwnd: cardinal; text, caption: pChar; frags: cardinal): cardinal; stdCall; external 'user32.dll' name 'MessageBoxW';

begin
   showMessage(0, 'Гитлер капут?', 'Caption', 0);
end.

А если

Если {$R *.res} убрать, то всё ОК.

[Voody]

У меня отлично всё показывает, хоть с директивой, хоть без нее

[Altera]

Сообщение от Voody

У меня отлично всё показывает, хоть с директивой, хоть без нее

Что, в Delphi 2010? И код *.dpr файла точно такой

program Project1;

{$R *.res}

function showMessage(hwnd: cardinal; text, caption: pChar; frags: cardinal): cardinal; stdCall; external 'user32.dll' name 'MessageBoxW';

begin
   showMessage(0, 'Гитлер капут?', 'Caption', 0);
end.

[Voody]

да, 2010
хоть так работает:

program Project1;uses
  windows, messages;
{$R *.res}
begin
   messageBox(0, 'Done', 'Box', MB_OK);end.

хоть так:

program Project1;uses
  windows, messages;
begin
   messageBox(0, 'Done', 'Box', MB_OK);end.

[Altera]

Ппц, там в чём же проблема?

[Яр|/||< (^_^)]

А где ты Delphi брал, может ты взял какую-то "криво-взломанную" делфи? Или у вас лицензионная? У меня всё работает.

[Stilet]

какую-то "криво-взломанную" делфи?

Вот это скорее всего. У меня видимо тоже кривая.
Хотя... Я наверное чушь ляпну, но вдруг разные операционки и сервиспаки виноваты...

[russian-stalker]

Дык может просто не установлены последние апдейты?