December 1, 2005 - WinTask - GetBinaryType

'
' GetBinaryType

'

Dim ptr as unsigned
ptr=Allocate(128)
PokeString(ptr,"C:\JoeStuff\TAIL.EXE",2)

ret=External("kernel32","GetBinaryTypeA", ptr, ret2)

msgbox(ret)