/ Snippet Library - View Code

Visual Basic / API / Shell and Wait

Snippet details

ID: 148

Viewed: 1374

Added: 2002-04-28

Version:

Snippets in this catagory
Show Printable Version

none

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight AllDeclare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Const INFINITE = -1 Public Sub ShellWait(ByVal FileName As String, optional WindowStyle As Variant) Dim idProc As Long Dim hProc As Long ' start program and save PID idProc = VBA.Shell(FileName, WindowStyle) ' get process handle hProc = OpenProcess(PROCESS_ALL_ACCESS, False, idProc) 'wait till program has finished If hProc <> hNull Then Call WaitForSingleObject(hProc, INFINITE) Call CloseHandle(hProc) End If End Sub
Code
Highlight Allnone

No Reviews to show