'
' ShellExecute
'
' Author: Joe Strazzere
'
'Declare Function ShellExecute Lib "shell32.dll" Alias _
' "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
' As String, ByVal lpFile As String, ByVal lpParameters _
' As String, ByVal lpDirectory As String, ByVal nShowCmd _
' As Long) As Long
'Const SW_SHOW = 5
'Public Sub ShowFindDialog(Optional InitialDirectory As String)
'ShellExecute 0, "find", _
' IIf(InitialDirectory = "", "", InitialDirectory), _
' vbNullString, vbNullString, SW_SHOW
'End Sub
'ret=External("shell32.dll","ShellExecuteA",0,"find","d: est",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"explore","d: est",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"print","d:wwf.doc",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"Open","d:wwf.doc",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"print","d:joe.txt",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"Open","d:joe.txt",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,0,"http://www.blogger.com/'mailto:joe.strazzere@fairmarket.com%22,0,0,5')
'ret=External("shell32.dll","ShellExecuteA",0,"View Dependencies","d:mini_golf.exe",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"Open","d: est.xml",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"Edit","d: est.xml",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"open","d:joe.bmp",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"open","d:joe.htm",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"Edit","d:joe.htm",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"EditWithVS","d:joe.htm",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"Open with Word","d:joe.htm",0,0,5)
'ret=External("shell32.dll","ShellExecuteA",0,"Print","d:joe.htm",0,0,5)
ret=External("shell32.dll","ShellExecuteA",0,"open","d:SwingSet2.jar",0,0,5)
