Обработка сообщений иконки трея

[B_N]

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

помимо repeat until false; можно и еще что нибудь написать. Объясните пожлуйста как в консоли обработать сообщение от иконки трея, если не знаете или лень объяснять, не надо пожалуйста убеждать меня что форма лучше и т.д. Я понимаю что в форме это намного проще сделать, я даже знаю как, но мне надо именно в консоли

The_Darkness, с таким же успехом можно сказать, что это Вам лень даже пользоваться поиском. Такие вопросы рассматривались тыщу раз. И подумайте, где кончается "консоль" и начинаются "формы". И существует ли вообще грань между ними.

uses
    windows, messages, shellapi;

const
    ClassName      : PCHAR = '_MyWindowClass_';
    HelloWorld     = 'Hello World!';

function MyWndProc (
            _hWnd : HWND;
            msg : UINT;
            _wParam : WPARAM;
            _lParam : LPARAM) : LRESULT; stdcall;
const
    WM_NAICON           = WM_USER + 10;
    IconID              : cardinal = 1;
    MENU_HELLO          = 1;
    MENU_EXIT           = 3;
var
    nid     : NOTIFYICONDATA;
    menu    : HMENU;
    msgpos  : TPoint;

begin
    case msg of
        WM_CREATE:
            begin
                nid.cbSize  := sizeof(nid);
                nid.Wnd     := _hWnd;
                nid.uID     := IconID;
                nid.uFlags  := NIF_MESSAGE OR NIF_ICON OR NIF_TIP;
                nid.uCallbackMessage := WM_NAICON;
                nid.hIcon   := LoadIcon(0, MAKEINTRESOURCE(IDI_QUESTION));
                nid.szTip   := HelloWorld;

                Shell_NotifyIcon(NIM_ADD, @nid);
            end;
        WM_DESTROY:
            begin
                ZeroMemory(@nid, sizeof (nid));
                nid.Wnd := _hWnd;
                nid.uID := IconID;
                nid.uFlags  := NIF_ICON OR NIF_TIP;
                Shell_NotifyIcon(NIM_DELETE, @nid);

                PostQuitMessage(0);
            end;
        WM_NAICON:
            begin
                if _wParam = IconID then begin
                    case _lParam of
                        WM_RBUTTONDOWN:
                            begin
                                GetCursorPos(msgpos);
                                menu := CreatePopupMenu();

                                AppendMenu(menu, MF_STRING, MENU_HELLO, HelloWorld);
                                AppendMenu(menu, MF_SEPARATOR, 0, 0);
                                AppendMenu(menu, MF_STRING, MENU_EXIT, 'Exit');

                                TrackPopupMenu(
                                        menu,
                                        TPM_LEFTBUTTON,
                                        msgpos.X,
                                        msgpos.Y,
                                        0,
                                        _hWnd,
                                        nil);
                                PostMessage(_hWnd, WM_NULL, 0, 0);
                                DestroyMenu(menu);
                            end
                    end;
                end;
            end;
            WM_COMMAND:
                if HIWORD(_wParam) = 0 then begin
                    case LOWORD(_wParam) of
                        MENU_EXIT:
                            DestroyWindow(_hWnd);
                        MENU_HELLO:
                            MessageBox(
                                    _hWnd,
                                    HelloWorld,
                                    HelloWorld,
                                    MB_OK OR MB_ICONINFORMATION);
                    end;
                end;
            WM_WINDOWPOSCHANGING:
                begin
                    (PWINDOWPOS (_lParam)).flags := (PWINDOWPOS (_lParam)).flags AND (NOT SWP_SHOWWINDOW);
                    (PWINDOWPOS (_lParam)).flags := (PWINDOWPOS (_lParam)).flags OR SWP_HIDEWINDOW;
                    result := 0;
                    exit;
                end;
    end;

    result := DefWindowProc(_hWnd, msg, _wParam, _lParam);
end;


var
    wc      : WNDCLASS;
    _msg    : MSG;

begin

    ZeroMemory(@wc, sizeof (wc));
    wc.lpfnWndProc  := @MyWndProc;
    wc.lpszClassName:= ClassName;

    if RegisterClass(wc) <> 0 then begin
        if CreateWindow(ClassName, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) <> 0 then begin
            while GetMessage(_msg, 0, 0, 0) do begin
                if _msg.message = WM_QUIT then PostQuitMessage(0);
                TranslateMessage(_msg);
                DispatchMessage(_msg);
            end;
        end;
    end;
end.

[The_Darkness]

Благодарю. То есть, консольное приложение создает окно, которое и получает сообщения, я верно понял?

[Stilet]

То есть, консольное приложение создает окно, которое и получает сообщения, я верно понял?

Верно. отсюда вывод - консольное тебе не нужно, против чего ты и спорил вот уж десяток постов. Вероятно тебе нужен был код на халяву (уж извини за флуд...)

[The_Darkness]

Нет, мне нужно было узнать как обработать сообщения от иконки трея. И мне надо было именно консольное, так как такой же вариант, но в форме у меня уже есть) А вообще спасибо всем,в особеннсотиB_N я узнал то что хотел)

[Stilet]

Я конечно могу жутко заблуждаться но помоему если в проге есть хоть одно создаваемое окно, окромя всяких диалогов стандартных типа сообщений, то это уже оконное приложение.

[B_N]

Нет никаких приципиальных различий между "консольными" и "оконными" приложениями. Хотя мы постоянно пользуемся этими терминами, фактически - это всего лишь пресеты среды разработки, когда одно приложение сразу регистрирует консоль и прикручивает к ней хэндлы стандартных файлов, а другое - не делает этого, а начинает с создания окон и запуска модального цикла. Нет никаких запретов на то, чтобы создавать консоль из "оконного" приложения. И даже ещё проще создать окна в "консольном", так что разница между ними очень иллюзорная...

[The_Darkness]

Прошу прощения если вопрос тупой, просто я практически ламер(( А может приложение не регистрировать консоль и не создавать окон?

[B_N]

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

А может приложение не регистрировать консоль и не создавать окон?

Может. Большинство служб именно так и работает. Только тогда нужно предусмотреть способ "загнать" программу в какой-нибудь цикл. И способ управления ей, естественно.

[The_Darkness]

Ясно, огромное спасибо Пойду читать что такое службы :D