December 1, 2005 - WinTask - ShellExecute

'

' 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,"mailto:joe.strazzere@fairmarket.com",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)