Close a Program

rossmrn

Hi
I've opened a program using the code
Dim RetVal
RetVal = Shell("C:\Program Files\Outlook Express\msimn.exe", vbNormalFocus)
Then i create file's and report's and send them off which works fine.
However now i want to close the Application, i've tried
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
objOutlook.Close
but im being told "ActiveX component can't create object", am i missing an DLL have i gone the wrong about it all together?

Any thoughts would be appreciated!

Thanks

JConsulting

Quote:

Originally Posted by rossmrn

Hi
I've opened a program using the code
Dim RetVal
RetVal = Shell("C:\Program Files\Outlook Express\msimn.exe", vbNormalFocus)
Then i create file's and report's and send them off which works fine.
However now i want to close the Application, i've tried
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
objOutlook.Close
but im being told "ActiveX component can't create object", am i missing an DLL have i gone the wrong about it all together?

Any thoughts would be appreciated!

Thanks

the shell command you're using simply launches the application...it doesn't own it. You have two choices. You can use automation to "control" the application as it performs it's actions, or you can use your current method, but then you're going to have to delve into the world of killing PIDs Program ID numbers....much like going into the CTL-ALT-DEL and killing a process.
J

FishVal

Quote:

Originally Posted by JConsulting

the shell command you're using simply launches the application...it doesn't own it. You have two choices. You can use automation to "control" the application as it performs it's actions, or you can use your current method, but then you're going to have to delve into the world of killing PIDs Program ID numbers....much like going into the CTL-ALT-DEL and killing a process.
J

You are right. The code below opens "notepad.exe" and closes it via sending WM_CLOSE to all windows created by the process.

Expand|Select|Wrap|Line Numbers

 
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

     (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _

     lParam As Any) As Long
 
Public Declare Function GetWindowThreadProcessId Lib "user32" _

(ByVal hWnd As Long, ByRef lpdwProcessId As Long) As Long
 
Public Declare Function EnumWindows Lib "user32" _

     (ByVal fpCallback As Long, ByVal lParam As Long) As Long
 
Public Const WM_CLOSE = 16
 
Public Sub RunAndCloseApp()
 
    Dim lngProcID As Long
 
    lngProcID = Shell("notepad")

    MsgBox "Notepad started, Ok to close it", vbOKOnly, "Close App"

    CloseProcess lngProcID
 
End Sub
 
Public Sub clbEnumWindows(ByVal hWnd As Long, ByVal lngParam As Long)
 
    Dim lngProcID As Long
 
    GetWindowThreadProcessId hWnd, lngProcID

    If lngProcID = lngParam Then

        'Debug.Print hWnd, lngProcID

        SendMessage hWnd, WM_CLOSE, 0, 0

    End If
 
End Sub
 
Public Sub CloseProcess(ByVal lngProcID)

    EnumWindows AddressOf clbEnumWindows, lngProcID

End Sub

rossmrn

I keep on getting caught up on things that i forget to thank the people that replied
The above piece of code was just what i was looking for

Thank you !

FishVal

Quote:

Originally Posted by rossmrn

I keep on getting caught up on things that i forget to thank the people that replied
The above piece of code was just what i was looking for

Thank you !

Thanks for response. I'm glad it was helpful for you.

Close a Program

re: Close a Program

re: Close a Program

re: Close a Program

re: Close a Program

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/other

/bytes/about