I am currently writing a launch program to launch certain
applications.  I have also been asked to supply a log record showing
how long the applicaton was active.  

It may be something simple but how can I tell when the application
has ended, in order to use the elapsed time for a cost calculation?

All help gratefully recieved. I have been on this for a while, so
maybe I cant see the wood for the trees.

TIA

John

--
~~~  In the immortal words of Socrates...........  I drank what??  ~~~
~~~                                                                ~~~

~~~  Sandwick, Shetland         Tel:     +44(0)1950 431430         ~~~

' Goes in the procedure where you start the app
x% = Shell("myapp.exe")

Do While GetModuleUsage(x%) <> 0
   Seconds = Seconds + (Timer - Seconds)
   DoEvents
Loop

Msgbox "Myapp ran for " & Seconds & " seconds"

Jens
--
* Everything I said are the opinions of someone else.   *
* I just cut-and-pasted.                                *

Jens Balchen jr.

P.O.Box 6052
N-4602 Kristiansand

Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName
As String) As Integer

Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As
Integer) As Integer

Use the following statement in your code:
handle = GetModuleHandle ("Your apps exe name")

If the handle is anything different from 0 then the App is running
atleast once

The statement:
Times = GetModuleUsage (handle)
Times gives the number of times the app is running