Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 421

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Я добавил свой пункт в системное меню windows. А как мне добавить еще и ИКОНКУ(картинку) ??? Желательно с примером.

Миша Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Миша (статус: Посетитель)
Вопрос отправлен: 16 марта 2008, 04:55
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 29 апреля 2009, 16:11; участников в обсуждении: 2.
Feniks

Feniks (статус: Бакалавр), 27 марта 2008, 09:39 [#1]:

Возможно этот пример вам поможет:
procedure TMainWindow.WMSysCommand( var Msg : TWMSysCommand );
var
    MsgBoxParams : TMsgBoxParams;
    S : String;
begin
    inherited ;
    if Msg.CmdType = SC_ABOUT then 
        with MsgBoxParams do begin
            FillChar( MsgBoxParams, SizeOf( MsgBoxParams), 0 );
            cbSize := SizeOf(MsgBoxParams);
            hwndOwner := Handle;
            hInstance := SysInit.hInstance;
            lpszText := 'Test CD для Windows 95. Версия 1.0'#13+
            'Copyright (c) 1997 г. by TAL'#13;
            lpszCaption := 'О программе ...';
            dwStyle := MB_USERICON;
            lpszIcon := 'MAINICON';
            MessageBoxIndirect( MsgBoxParams );
        end;
end;
 
procedure TMainWindow.FormCreate(Sender: TObject);
var
    hMenu : THandle;
begin
    hMenu := GetSystemMenu( Handle, FALSE );
    AppendMenu( hMenu, MF_SEPARATOR, 0, NIL );
    AppendMenu( hMenu, MF_STRING, SC_ABOUT, 'О программе ...' );
...
end;
Alexey

Alexey (статус: Посетитель), 29 апреля 2009, 16:11 [#2]:

Добрый!
А как сделать что б после нажатия 'О программе ...' переходила обработка на процедуру WMSysCommand
У меня Windows XP, Delphi 2007
Спасибо.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 сентября 2017, 09:52
Выполнено за 0.17 сек.
Рейтинг@Mail.ru