|
Вопрос # 1 421/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Я добавил свой пункт в системное меню windows. А как мне добавить еще и ИКОНКУ(картинку) ??? Желательно с примером.
 |
Вопрос задал: Миша (статус: Посетитель)
Вопрос отправлен: 16 марта 2008, 04:55
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 29 апреля 2009, 16:11; участников в обсуждении: 2.
|
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 (статус: Посетитель), 29 апреля 2009, 16:11 [#2]:
Добрый!
А как сделать что б после нажатия 'О программе ...' переходила обработка на процедуру WMSysCommand
У меня Windows XP, Delphi 2007
Спасибо.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
