VPF::Правильно заполнить структуру MSGBOXPARAMS.

NUCLEuS

Дата 1.9.2005, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

Народ, подскажите плизз как правильно заполнить поле lpszIcon структуры MSGBOXPARAMS.

Дело в том что я использую MessageBoxIndirect для MessageBox'а со своей иконкой. Вот только давно не пользовался им и уже забыл как нужно заполнять поле lpszIcon. Допустим у меня есть в ресурсах иконка MAINICON и я хочу чтобы MessageBoxIndirect был с ней.

Я делаю так:

Params.lpszIcon:=PChar(LoadIcon(hInstance,'MAINICON'));

всё компилится но вылезает AccessViolation. Помогите заполнить правильно.

rsm

Дата 1.9.2005, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 999
Регистрация: 16.3.2005

Репутация: 1
Всего: 62

Код


program msgbox;

uses
  Windows;

{$R rsrc.res}

var
   mbp: TMsgBoxParams;

const
   ICI_MAIN = 1001;   

begin
   with mbp do
      begin
         cbSize:= sizeof(mbp);
         hwndOwner:= 0;
         hInstance:= GetModuleHandle(nil);
         lpszText:= 'Some text...';
         lpszCaption:= 'iNf0';
         dwStyle:= MB_USERICON;
         lpszIcon:= pchar(ICI_MAIN);
      end;
   MessageBoxIndirect(mbp);
end.

Код


// rsrc.rc

1001 ICON DISCARDABLE "icon.ico"

Присоединённый файл ( Кол-во скачиваний: 8 )

mbp.zip 6,59 Kb

NUCLEuS

Дата 1.9.2005, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

rsm спасибо smile

Так всё просто. А я мудрил smile

Добавлено @ 23:25
2Модератор - тему можно закрыть.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »