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

[Utkin]

Я думаю, надо отслеживать баг в привязке к ОСи. Подозреваю, что это связано только с некоторыми версиями д2010 и только для ХР.

[Altera]

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

program Project1;

uses
  messages, windows;

{$R *.res}

var
   hDll: tHandle;
   showMessage: function (hwnd: tHandle; text, caption: pWideChar; flag: cardinal): integer; stdCall;

   fRes: integer;


begin
   hDll := loadLibrary('user32.dll');
   @showMessage := getProcAddress(hDll, 'MessageBoxW');
   fRes := 10;
   fRes := showMessage(0, 'Hello WinAPI', 'Greating', MB_OK);
   fRes := 20;
end.

Возвращаемое значение определить не удаётся, так как при отладке дебарег почему-то перескакивает через них.

[mutabor]

Попробуй сделать, как я вчера писал. Ты ведь говоришь, что если ресурсы не подключать то работает? Так создай юнит или форму дополнительно, не подключай ресурсы к ней, и вынеси в паблик функцию обертку, а внутри как раз будет вызов MesageBox, по идее может сработать. Это конечно фигня на постном масле, но если тебе срочно нужно решить проблему - пойдет.

p.s. Слушай, а случайно не в первом параметре дело? Я знаю что мелкософт любит с рабочим столом чудить из версии к версии, а ты как раз ноль передаешь, попробуй Handle формы передай.

[Олвин]

Да я эти чудеса с MessageBox и в Delphi 7 видел. Не срабатывал при подключении ресурса с манифестом. Без манифеста работал. У меня XP.