Mam problem z pozbyciem się tej ikonki z traya, próbowałem już chyba wszystkiego -może coś źle robiłem, już sam nie wiem...
Jak to w Delphi zrobić?
To przykład programu w asm
.386
.model flat, stdcall
option casemap :none
include ..\include\windows.inc
include ..\include\user32.inc
include ..\include\kernel32.inc
include ..\include\shell32.inc
includelib ..\lib\kernel32.lib
includelib ..\lib\user32.lib
includelib ..\lib\shell32.lib
main PROTO
.data
sClass db "SystemTray_Main",0
sNotFound db "Taskbar not found...",0
sHideUSBi db "Hide USB icon",0
.code
start:
invoke main
main proc
LOCAL data :NOTIFYICONDATA
invoke FindWindow, ADDR sClass, NULL
cmp eax, 0
je notfound
push eax
invoke RtlZeroMemory, ADDR data, sizeof NOTIFYICONDATA
mov data.cbSize, sizeof NOTIFYICONDATA
pop eax
mov data.hwnd, eax
mov data.uID, 1226
invoke Shell_NotifyIcon, NIM_DELETE, ADDR data
ret
notfound:
invoke MessageBox, 0, ADDR sNotFound, ADDR sHideUSBi, MB_OK or MB_ICONEXCLAMATION
invoke ExitProcess, 0
ret
main endp
end start