WinTask - GetBinaryType

'
' GetBinaryType
'
' Author: Joe Strazzere
'

Dim ptr as unsigned
ptr=Allocate(128)
PokeString(ptr,"C:JoeStuffTAIL.EXE",2)
ret=External("kernel32","GetBinaryTypeA", ptr, ret2)
msgbox(ret)