This is not really a code contribution, but a small tip on API parameter lists.
Ever seen an Api Function which expects parameters of type ‘Any’ ? . For example
domain/user maintenance calls in the Nt Networking Api or similar (Add Users/Groups etc..).
These parameters usually (in the C/C++ base code) are probably expecting string pointers ,
an other example is in the case of the AddGroup Api call in the NetApi.Dll, where it
expects the name of the server in one of the parameters in the list.
How you actually pass the pointer is by:-
eg.
‘###
‘ Api Function for example:-
‘ ApiFunction(sArgument as Any) As Long
‘
Dim strAnyString As String
Dim strPass() As Byte
Dim lRet As Long

strAnyString = “String as argument”

strPass = strAnyString

lRet = ApiFunction(strPass(0))
‘###
What we’re basically doing is getting the string to pass, assigning it to another
variable array of type ‘byte’, then passing the first array segment to the Api function.
Easy enough?
Hope you understood all that !
Robert Dick

Original Author: Robert Dick

Code

#

Date:2002-06-01

Migrated:Not Migrated

A Custom Animated TrayIcon

This small code creates a custom animated icon in your taskbar.
You can put your own images in the imagelist, create your own popup menu when rightclicking on the icon.
Use this code and build your own application around it!

Original Author: Pascal van de Wijdeven

Assumptions

First add some images to the imagelist!!!

Attachments

File	Uploaded	Size
CODE_UPLOAD1854.zip	9/3/2020 3:45:00 PM	3206