Somebody asked, by email, how to display the Open With dialog in LB code. Here you go:
Code: file$ = DefaultDir$ + "\OpenWith.bas" ' for example
wide$ = space$(2 * _MAX_PATH)
struct oai, pcszFile$ as ptr, pcszClass$ as ptr, oaifInFlags as long
calldll #kernel32, "MultiByteToWideChar", 0 as long, 0 as long, _
file$ as ptr, -1 as long, wide$ as ptr, _MAX_PATH as long, r as long
oai.pcszFile$.struct = wide$
oai.oaifInFlags.struct = 4
calldll #shell32, "SHOpenWithDialog", 0 as long, oai as struct, r as long
Richard.
Logged