Hallo Leute!
Ich aber zwar kein XP, aber mit beiliegendem Code sollte man dem Fehler eigendlich auf die Spur kommen.
window 100,50-500,500
numwidth 10
strwidth 10
declare Tray#,Code&,ID&,Icon&
def LoadIcon(2) !"user32","LoadIconA"
def Shell_NotifyIcon(2) !"shell32","Shell_NotifyIconA"
Code&=2222
ID& =5555
Icon&=LoadIcon(0,32513)
struct TRAY=Size&,Hwnd&,ID&,Flags&,Code&,Icon&,Tip$(64)
dim Tray#,TRAY
with Tray#
.Size& =92
.Hwnd& =%hwnd
.ID& =ID&
.Flags& =7'--NIF_ICON + NIF_TIP + NIF_MESSAGE
.Code& =Code&
.Icon& =Icon&
.Tip$ ="Laber..Laber"
endwith
Shell_NotifyIcon(0,Tray#)'--------NIM_ADD
usermessages Code&,16'------------WM_CLOSE (16)
while 1
locate 0,0
print
print " TrayCode",Code&
print " TrayID",ID&
print
print " %message",%message
print
print " &wparam Hi",&wparam & $FFFF0000
print " &wparam Lo",&wparam & $0000FFFF
print " &lparam Hi",&lparam & $FFFF0000
print " &lparam Lo",&lparam & $0000FFFF
print
print " ButtonDown L (513)",&lparam=513
print " ButtonUp L (514)",&lparam=514
print "Doppelklick L (515)",&lparam=515
print
print " ButtonDown R (516)",&lparam=516
print " ButtonUp R (517)",&lparam=517
print "Doppelklick R (518)",&lparam=518
waitinput
case %umessage=16:break
endwhile
Shell_NotifyIcon(2,Tray#)'--------NIM_DELETE
dispose Tray#
HTH
Pascal
|