Форум программистов [Powered by Invision Power Board]

Код


.data
 node NOTIFYICONDATA
 szExit db "&Exit", 0

  hTrayMenu dd ?

  IDI_TRAY          = 1000
  IDM_EXIT       = 101    

...
.code
   mov    [node.cbSize],sizeof.NOTIFYICONDATA
   mov eax,[hwnd]
   mov    [node.hWnd],eax
   mov    [node.uID],IDI_TRAY
   mov    [node.uFlags],NIF_ICON+NIF_MESSAGE+NIF_TIP
   mov    eax,[wc.hIcon]
   mov    [node.hIcon],eax
   mov    dword[node.szTip],"prog"
   invoke Shell_NotifyIcon, NIM_ADD,node 
...
.rsrc
directory   RT_ICON,icons,\
            RT_GROUP_ICON,group_icons,\
            RT_VERSION,versions

  resource icons,\
           1,LANG_NEUTRAL,icon_data,\
           2,LANG_NEUTRAL,tray_icon_data

  resource group_icons,\
           17,LANG_NEUTRAL,main_icon,\
           IDI_TRAY,LANG_NEUTRAL,tray_icon

  resource versions,\
           1,LANG_NEUTRAL,version

  icon main_icon,icon_data,'MAH2.ico'
  icon tray_icon,tray_icon_data,'DAH.ico'

Код

 invoke  LoadIcon,0,IDI_APPLICATION
  mov     [wc.hIcon],eax

Код

 node NOTIFYICONDATA
 szAbout db "&About", 0
 szExit  db "&Exit", 0

  hTrayMenu dd ?

  IDI_TRAY       = WM_USER + 1
  IDI_EXIT       = WM_USER + 2
  IDI_ABOUT      = WM_USER + 3
.code
   mov    [node.cbSize],sizeof.NOTIFYICONDATA
   mov    eax,[hwnd]
   mov    [node.hWnd],eax
   mov    [node.uID],IDI_TRAY
   mov    [node.uFlags],NIF_ICON+NIF_MESSAGE+NIF_TIP
   invoke LoadIcon,[wc.hInstance],17
   mov    [node.hIcon],eax
   mov    dword[node.szTip],"×óäî"
   mov    dword[node.szTip+4],"-êóð"
   mov    dword[node.szTip+8],"ñîð"
   invoke Shell_NotifyIcon, NIM_ADD,node
   invoke CreatePopupMenu
   mov    [hTrayMenu], eax
   invoke AppendMenu,[hTrayMenu],MF_STRING,IDI_ABOUT,szAbout
   invoke AppendMenu,[hTrayMenu],MF_SEPARATOR,0,0
   invoke AppendMenu,[hTrayMenu],MF_STRING,IDI_EXIT,szExit  
proc Procedura hwnd,wmsg,wparam,lparam
  push ebx
  push esi
  push edi
  cmp [wmsg],WM_MOUSEMOVE
  je ParseTray
ParseTray:
  cmp [lparam],WM_RBUTTONDOWN
  je  popup
  xor eax,eax
  jmp finish

 popup:
   lea    eax,[lpo]
   invoke SetForegroundWindow,[hwnd]
   invoke TrackPopupMenu,[hTrayMenu],TPM_RIGHTBUTTON,[lpo.x],[lpo.y],0,[hwnd],0
   invoke PostMessage,[hwnd],WM_NULL,0,0
   invoke DestroyMenu,[hTrayMenu]
   jmp  finish

 Moving:
   invoke InvalidateRect,[hwnd],rc,TRUE
   invoke UpdateWindow,[hwnd]

 finish:
  pop edi
  pop esi
  pop ebx
  ret
endp
.end start



section '.rsrc' data readable resource





directory   RT_ICON,icons,\
            RT_GROUP_ICON,group_icons,\
            RT_VERSION,versions

  resource icons,\
           1,LANG_NEUTRAL,icon_data,\
           2,LANG_NEUTRAL,tray_icon_data

  resource group_icons,\
           17,LANG_NEUTRAL,main_icon,\
           IDI_TRAY,LANG_NEUTRAL,tray_icon

  resource versions,\
           1,LANG_NEUTRAL,version

  icon main_icon,icon_data,'MAH2.ico'
  icon tray_icon,tray_icon_data,'DAH.ico'

  versioninfo version,VOS__WINDOWS32,VFT_APP,VFT2_UNKNOWN,LANG_ENGLISH+SUBLANG_DEFAULT,0,\
              'LegalCopyright','?????',\
              'ProductVersion','??'

Цитата(drZmeu @ 28.5.2007, 09:42

)

А если сделать на диалогах

Цитата(drZmeu @ 28.5.2007, 15:14

)

Сёня постараюсь посмотрю может чёт и выйдет с меню =\

Код



format PE GUI 4.0
entry start
include "win32a.inc"

; constants
WM_SHELLNOTIFY = WM_USER+5
IDI_TRAY       = 0
IDM_SHOWHIDE   = 100
IDM_EXIT       = 101


; data section
section '.data' data readable writeable

  szClass db "WNDCLASS", 0
  szTitle db "SysTray Example", 0
  szShowHide db "&Show/Hide", 0
  szExit     db "&Exit", 0

  hInstance dd ?
  hTrayMenu dd ?
  hMainWnd  dd ?
  msg        MSG
  wc        WNDCLASSEX
  node        NOTIFYICONDATA
  showflag  dd ?   ; 1 if main window is visible


; code section
section '.code' code readable executable
  start:
    invoke    GetModuleHandle,0
    mov    [hInstance],eax

     ; initialise main window
    mov    [wc.hInstance],eax
    xor    eax,eax
    mov    [wc.cbSize],sizeof.WNDCLASSEX
    mov    [wc.style],eax
    mov    [wc.cbClsExtra],eax
    mov    [wc.cbWndExtra],eax
    mov    [wc.lpszMenuName],eax
    mov    [wc.hIconSm],eax
    mov    [wc.hbrBackground],COLOR_BTNFACE+1
    mov    [wc.lpszClassName],szClass
    mov    [wc.lpfnWndProc],MainWindowProc
    invoke    LoadIcon, NULL,IDI_APPLICATION
    mov    [wc.hIcon],eax
    invoke    LoadCursor, NULL,IDC_ARROW
    mov    [wc.hCursor],eax
    invoke    RegisterClassEx, wc
    or    eax,eax
    jz    finish
    invoke    CreateWindowEx, 0,szClass,szTitle,WS_VISIBLE+WS_OVERLAPPEDWINDOW,\
                220,220,200,200,HWND_DESKTOP,0,[hInstance],0
    or    eax,eax
    jz    finish
    mov    [hMainWnd],eax
    mov    [showflag],1

  message_loop:
    invoke    GetMessage, msg,NULL,0,0
    or    eax,eax
    jz    finish
    invoke    TranslateMessage, msg
    invoke    DispatchMessage, msg
    jmp    message_loop
  finish:
    invoke    ExitProcess, [msg.wParam]


proc MainWindowProc hWnd,uMsg,wparam,lparam
local pt:POINT
    push    ebx esi edi
    mov    eax,[uMsg]
    cmp    eax,WM_SHELLNOTIFY
    je    .wmshellnotify
    cmp    eax,WM_COMMAND
    je    .wmcommand
    cmp    eax,WM_SYSCOMMAND
    je    .wmsyscommand
    cmp    eax,WM_CREATE
    je    .wmcreate
    cmp    eax,WM_DESTROY
    je    .wmdestroy
  .defwndproc:
    invoke    DefWindowProc, [hWnd],[uMsg],[wparam],[lparam]
    jmp    .finish
  .wmcreate:
     ; create tray icon
    ; fill NOTIFYICONDATA structure
    mov    [node.cbSize],sizeof.NOTIFYICONDATA
    mov    eax,[hWnd]
    mov    [node.hWnd],eax
    mov    [node.uID],IDI_TRAY
    mov    [node.uFlags],NIF_ICON+NIF_MESSAGE+NIF_TIP
    mov    [node.uCallbackMessage],WM_SHELLNOTIFY
    invoke    LoadIcon, NULL,IDI_WINLOGO
    mov    [node.hIcon],eax
    mov    dword[node.szTip],"Tray"
    mov    dword[node.szTip+4], " Dem"
    mov    word[node.szTip+8], 'o'
    invoke    Shell_NotifyIcon, NIM_ADD,node        ; show icon ton system tray
    invoke    CreatePopupMenu                    ;
    mov    [hTrayMenu],eax                    ; create popup menu
    invoke    AppendMenu, eax,MF_STRING,IDM_SHOWHIDE,szShowHide    ;
    invoke    AppendMenu, [hTrayMenu],MF_STRING,IDM_EXIT,szExit    ;
    xor    eax,eax
    jmp    .finish
  .wmcommand:                ; WM_COMMAND handler - here we handle clicks on tray icon
    cmp    [lparam],0
    jne    .finish
    mov    eax,[wparam]
    cmp    eax,IDM_SHOWHIDE
    je    .showhide
    cmp    eax,IDM_EXIT
    je    .idm_exit
    jmp    .finish
  .idm_exit:
    invoke    DestroyWindow, [hWnd]
    jmp    .finish

  .wmsyscommand:                ; when user presses "minimize" button, main window
    cmp    [wparam],SC_MINIMIZE        ; should be hidden
    jne    .defwndproc
     .sc_minimize:
    jmp    .showhide

  .wmshellnotify:                ; WM_SHELLNOTIFY handler - here we handle actions
    cmp    [wparam],IDI_TRAY        ; like clicking on our icon
    jne    .finish
    cmp    [lparam],WM_LBUTTONDOWN
    je    .showhide
    cmp    [lparam],WM_RBUTTONDOWN
    je    .show_tray_popup
    jmp    .finish
  .showhide:
    cmp    [showflag],0
    je    .show
      .hide:
    invoke    ShowWindow, [hWnd],SW_HIDE
    mov    [showflag], 0
    jmp    .finish
      .show:
    invoke    ShowWindow, [hWnd],SW_SHOW
    mov    [showflag], 1
    jmp    .finish
  .show_tray_popup:
    lea    eax,[pt]
    invoke    GetCursorPos, eax
    invoke    SetForegroundWindow, [hWnd]
    invoke    TrackPopupMenu, [hTrayMenu],TPM_RIGHTALIGN,[pt.x],[pt.y],\
                NULL,[hWnd],NULL
    invoke    PostMessage, [hWnd],WM_NULL,0,0
    jmp    .finish

  .wmdestroy:
    invoke    Shell_NotifyIcon, NIM_DELETE,node
    invoke    DestroyMenu, [hTrayMenu]
    invoke    PostQuitMessage, 0
    xor    eax,eax
  .finish:
    pop    edi esi ebx
    ret
endp

; imports
section '.idata' import data readable
library kernel32,"KERNEL32.DLL",\
    user32,"USER32.DLL",\
    shell32,"SHELL32.DLL"

include "apia/kernel32.inc"
include "apia/user32.inc"
include "apia/shell32.inc"

Код


include 'win32axp.inc'
.data
 tityl db 'My program',0
 klass db 'My klass',0
 hwnd dd ?
 hdc dd ?
 hp dd ?
  vysota dd ?
  shirina dd ?
  xx dd ?
  yy dd ?
 wc WNDCLASS 0,Procedura,0,0,NULL,NULL,NULL,00h,NULL,klass
 msg MSG
 rc RECT
 ps PAINTSTRUCT
 lpo POINT;переменная под координаты курсора
 node NOTIFYICONDATA
 szAbout db "&About", 0
 szExit  db "&Exit", 0

  hTrayMenu dd ?

  IDI_TRAY       = WM_USER + 1
  IDI_EXIT       = WM_USER + 2
  IDI_ABOUT      = WM_USER + 3


.code
 fuck:
  invoke SetPriorityClass,<invoke GetCurrentProcess>,0x00000040
  invoke GetSystemMetrics,SM_CXSCREEN
  mov [shirina],eax
  invoke GetSystemMetrics,SM_CYSCREEN
  mov [vysota],eax
  ;определили ширину и высоту экрана
  invoke  GetModuleHandle,0
  mov     [wc.hInstance],eax
  invoke  LoadCursor,0,IDC_ARROW
  mov     [wc.hCursor],eax
  invoke  RegisterClass,wc


invoke CreateWindowEx,WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_TRANSPARENT or WS_EX_LAYERED, klass,tityl,WS_POPUP+WS_VISIBLE,0,0,[shirina],[vysota], NULL,NULL,[wc.hInstance],NULL

  ;создали окно, размером во весь экран,
  ;"прозрачное для мыши"
  mov [hwnd],eax

   mov    [node.cbSize],sizeof.NOTIFYICONDATA
   mov    eax,[hwnd]
   mov    [node.hWnd],eax
   mov    [node.uID],IDI_TRAY
   mov    [node.uFlags],NIF_ICON+NIF_MESSAGE+NIF_TIP
   invoke LoadIcon,[wc.hInstance],17
   mov    [node.hIcon],eax
   mov    dword[node.szTip],"Чудо"
   mov    dword[node.szTip+4],"-кур"
   mov    dword[node.szTip+8],"сор"
   invoke Shell_NotifyIcon, NIM_ADD,node
   invoke CreatePopupMenu
   mov    [hTrayMenu], eax
   invoke InsertMenuItem,[hTrayMenu],MF_STRING,IDI_ABOUT,szAbout
   invoke InsertMenuItem,[hTrayMenu],MF_SEPARATOR,0,0
   invoke InsertMenuItem,[hTrayMenu],MF_STRING,IDI_EXIT,szExit



  invoke SetLayeredWindowAttributes,[hwnd],00h,00h,LWA_COLORKEY
  invoke SetWindowPos,[hwnd],HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE
  ;несмотря на то, что окно у нас WS_EX_TOPMOST,
  ;его необходимо "вручную" передвинуть наверх.
  ;ещё мы объявляем его неперемещаемым и не меняющим размеров
  invoke UpdateWindow,[hwnd]

 msg_loop:
   invoke  GetMessage,msg,NULL,0,0
   or      eax,eax
   jz      end_loop
   invoke  TranslateMessage,msg
   invoke  DispatchMessage,msg
   jmp     msg_loop
 end_loop:
   invoke  ExitProcess,[msg.wParam]

proc Procedura hwnd,wmsg,wparam,lparam
  push ebx
  push esi
  push edi
  cmp [wmsg],WM_MOUSEMOVE
  je Moving
  cmp [wmsg],WM_DESTROY
  je Destroy
  cmp [wmsg],WM_PAINT
  je Paint
  invoke DefWindowProc,[hwnd],[wmsg],[wparam],[lparam]
  jmp finish

 Destroy:
  invoke  PostQuitMessage,0
  xor     eax,eax

 Paint:
  invoke BeginPaint,[hwnd],ps
  mov [hdc],eax
  invoke GetClientRect,[hwnd],rc
  invoke CreatePen,PS_SOLID,2,0ff0000h
  mov [hp],eax
  invoke SelectObject,[hdc],[hp]
  push eax
  invoke SetROP2,[hdc],5
  invoke MoveToEx,[hdc],0,[yy],NULL
  invoke LineTo,[hdc],[shirina],[yy]
  invoke MoveToEx,[hdc],[xx],0,NULL
  invoke LineTo,[hdc],[xx],[vysota]
  ;прочертили перекрестье.
  ;в первый раз оно ляжет вне видимой области,
  ;т.к. позиция точки по умолчанию 0;0,
  ;а потом будет затирать уже нарисованное
  prov:
  invoke GetCursorPos,lpo
  mov eax,dword [lpo]
  mov [xx],eax
  mov eax,dword [lpo+4]
  mov [yy],eax

  ;определяем позицию курсора и чертим крест
  invoke MoveToEx,[hdc],0,[yy],NULL
  invoke LineTo,[hdc],[shirina],[yy]
  invoke MoveToEx,[hdc],[xx],0,NULL
  invoke LineTo,[hdc],[xx],[vysota]
  pop eax
  invoke DeleteObject,[hp]
  invoke EndPaint,[hwnd],ps


 Moving:
   invoke InvalidateRect,[hwnd],rc,TRUE
   invoke UpdateWindow,[hwnd]
   ;обрабатываем сообщение WM_MOUSEMOVE:
   ;объявляем клиентскую область недействительной
   ;и обновляем окно, чтобы система послала ему
   ;WM_PAINT

 finish:
  pop edi
  pop esi
  pop ebx
  ret
endp
.end fuck



section '.rsrc' data readable resource





directory   RT_ICON,icons,\
            RT_GROUP_ICON,group_icons,\
            RT_VERSION,versions

  resource icons,\
           1,LANG_NEUTRAL,icon_data,\
           2,LANG_NEUTRAL,tray_icon_data

  resource group_icons,\
           17,LANG_NEUTRAL,main_icon,\
           IDI_TRAY,LANG_NEUTRAL,tray_icon

  resource versions,\
           1,LANG_NEUTRAL,version

  icon main_icon,icon_data,'MAH2.ico'
  icon tray_icon,tray_icon_data,'DAH.ico'

  versioninfo version,VOS__WINDOWS32,VFT_APP,VFT2_UNKNOWN,LANG_ENGLISH+SUBLANG_DEFAULT,0,\
              'LegalCopyright','Djinn | Adrax | HexEdit',\
              'ProductVersion','0.4'