How works ShellExecute? 1

aweiss · Jan 3, 2000

Hello! 
 
I want to use the Win32 API function ShellExecute. Can some give me an example? 
Thanks 
 
aweiss

aweiss · Jan 4, 2000

Hello, 
 
I know now how it's work: 
 
Private 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 
 
dim result, File 
 
File = "C:\weiss.bat" 
 
result = ShellExecute(0, "OPEN", File, "", App.Path & "\", 0) 
 
Now my new question: 
 
I want to do this syncron! Can some help me and say me the right parameter? 
 
thanks 
 
aweiss

MikeLacey · Jan 4, 2000

I don't think it's a parameter. 
 
The only way I know how to do it is a bit involved but it is in a module and quite easy to use. I can email you the code if you like - drop me a line 
 
-ml Mike Lacey <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

raviman · Jan 6, 2000

What do you actually want to do with it. 
Open a particular file with a particular editor or something else ? Ravi Kochher <a href=mailto:rkochher@ssius.com>rkochher@ssius.com</a> <a href= > </a>

edderic · Jan 25, 2000

Here is it : 
 
Private Declare Function GetDesktopWindow Lib "user32" () As Long 
 
Private 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 
 
Private Const SW_SHOWNORMAL As Long = 1 
Private Const SW_SHOWMAXIMIZED As Long = 3 
Private Const SW_SHOWDEFAULT As Long = 10 
 
 
Public Sub RunShellExecute(sTopic As String, sFile As Variant, _ 
sParams As Variant, sDirectory As Variant, _ 
nShowCmd As Long) 
 
Dim hWndDesk As Long 
Dim success As Long 
Const SE_ERR_NOASSOC = &H31 
 
'the desktop will be the 
'default for error messages 
hWndDesk = GetDesktopWindow() 
 
'execute the passed operation 
success = ShellExecute(hWndDesk, sTopic, sFile, sParams, sDirectory, nShowCmd) 
 
'This is optional. Uncomment the three lines 
'below to have the "Open With.." dialog appear 
'when the ShellExecute API call fails 
'If success = SE_ERR_NOASSOC Then 
' Call Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & sFile, vbNormalFocus) 
'End If 
 
End Sub 
 
 
Private Sub cmdApps_Click(Index As Integer) 
 
Dim sTopic As String 
Dim sFile As String 
Dim sParams As Variant 
Dim sDirectory As Variant 
 
Select Case Index 
Case 0: 'open doc file with associated app 
sTopic = "Open" 
sFile = "c:\My Documents\Resources.doc" 
sParams = 0& 
sDirectory = 0& 
 
Case 1: 'open txt file with associated app 
sTopic = "Open" 
sFile = "c:\My Documents\rundll.txt" 
sParams = 0& 
sDirectory = 0& 
 
Case 2: 'open wav file with associated app 
sTopic = "Open" 
sFile = "c:\win\media\Notify.wav" 
sParams = 0& 
sDirectory = 0& 
 
Case 3: 'play wav file with associated app 
sTopic = "Play" 
sFile = "c:\win\media\Notify.wav" 
sParams = 0& 
sDirectory = 0& 
 
Case 4: 'open autoexec.bat with notepad 
sTopic = "Open" 
sFile = "C:\win\notepad.exe" 
sParams = "C:\Autoexec.bat" 
sDirectory = 0& 
 
Case 5: 'play avi file with associated app 
sTopic = "Play" 
sFile = "E:\VB Graphics\avi\Cogs.avi" 
sParams = 0& 
sDirectory = 0& 
Case Else 
End Select 
 
Call RunShellExecute(sTopic, sFile, sParams, sDirectory, SW_SHOWNORMAL) 
 
End Sub 
 
 
Private Sub cmdBrowser_Click(Index As Integer) 
 
Dim sTopic As String 
Dim sFile As String 
Dim sParams As Variant 
Dim sDirectory As Variant 
 
Select Case Index 
Case 0: 'send email to address using default email app 
sTopic = "Open" 
sFile = "mailto:<A HREF="mailto:vbg.be@vbgrpup.nl">vbg.be@vbgrpup.nl</A>" 
sParams = 0& 
sDirectory = 0& 
 
Case 1: 'open default browser to specified site 
sTopic = "Open" 
sFile = "<A HREF="

http://www.vbgroup.nl&quot"

TARGET="_new">

http://www.vbgroup.nl&quot</A>;

sParams = 0& 
sDirectory = 0& 
 
Case 2: 'open specified browser to specified site 
sTopic = "Open" 
sFile = "C:\Program Files\Internet Explorer\iexplore.exe" 
sParams = "<A HREF="

http://www.vbgroup.nl&quot"

TARGET="_new">

http://www.vbgroup.nl&quot</A>;

sDirectory = 0& 
 
Case Else 
End Select 
 
Call RunShellExecute(sTopic, sFile, sParams, sDirectory, SW_SHOWNORMAL) 
 
End Sub 
 
 
Private Sub cmdExplorer_Click(Index As Integer) 
 
Dim sTopic As String 
Dim sFile As String 
Dim sParams As Variant 
Dim sDirectory As Variant 
 
Select Case Index 
Case 0: 'explorer - rooted, normal view 
sTopic = "Open" 
sFile = "explorer.exe" 
sParams = "/root,c:\program files" 
sDirectory = 0& 
 
Case 1: 'explorer - rooted, explorer view 
sTopic = "Open" 
sFile = "explorer.exe" 
sParams = "/e,/root,c:\program files" 
sDirectory = 0& 
 
Case 2: 'explorer - explorer view, with specified folder 
sTopic = "Open" 
sFile = "explorer.exe" 
sParams = "/e,c:\program files" 
sDirectory = 0& 
 
Case 3: 'explorer - explorer view, with specified drive 
sTopic = "Open" 
sFile = "explorer.exe" 
sParams = "/e,c:\" 
sDirectory = 0& 
 
Case 4: 'explorer - explorer view, current drive 
sTopic = "Open" 
sFile = "explorer.exe" 
sParams = "/e,\" 
sDirectory = 0& 
 
Case 5: 'recycle bin 
sTopic = "Open" 
sFile = "explorer.exe" 
sParams = "/root,::{645FF040-5081-101B-9F08-00AA002F954E}" 
sDirectory = 0& 
 
Case Else 
End Select 
 
Call RunShellExecute(sTopic, sFile, sParams, sDirectory, SW_SHOWNORMAL) 
 
End Sub 
 
 
Eric De Decker

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How works ShellExecute? 1

aweiss

Programmer

aweiss

Programmer

MikeLacey

MIS

raviman

Programmer

edderic

Programmer

Similar threads

Part and Inventory Search

Sponsor