PureBoard

Code: Alles auswählen

Procedure.l Ansi2Uni(ansi.s) 
SHStrDup_(@ansi,@memziel)
ProcedureReturn memziel
EndProcedure

#NIF_ICON = 2

CoInitialize_(0) 

If CoCreateInstance_(?CLSID_UserNotification,0,1,?IID_IUserNotification,@object.IUserNotification) = 0

;object\SetBalloonRetry(5000,0,0); 
object\SetIconInfo(LoadIcon_(0, #IDI_QUESTION),ansi2uni("tooltip")); 
object\SetBalloonInfo(ansi2uni("test"),ansi2uni("bluna 1 2 3 4 5 6 7 8 9 0"),#NIF_ICON); 
object\Show(0,0)
object\release()
EndIf

CoUninitialize_() 

DataSection 
CLSID_UserNotification: 
Data.l $0010890e
Data.w $8789,$413c
Data.b $ad,$bc,$48,$f5,$b5,$11,$b3,$af 

IID_IUserNotification: 
Data.l $ba9711ba
Data.w $5893,$4787
Data.b $a7,$e1,$41,$27,$71,$51,$55,$0b 
EndDataSection