Can someone give me the 32-bit declare for the
GetModuleUsage API?  

Thanks,
Blake

Please remove the 454 from my email address if responding
by email (SPAM protection):

GetModuleUsage no longer  exists under win32

On Mon, 20 Apr 1998 12:44:54 -0500, "greg munro"

How can I tell if an app is still running under Win32 (a DOS
app in this instance)?

Blake

Please remove the 454 from my email address if responding
by email (SPAM protection):

   The GetModuleUsage function is obsolete and is not included in the Win32
API. This is because memory or instance handles are no longer shared between
applications. However, the following declares can be used to retreive the
usage of all currently running processes. Is this the equivilent of what you
need under Win32?

Public Const TH32CS_SNAPPROCESS As Long = 2&
Public Const MAX_PATH   As Integer = 260

Public Type PROCESSENTRY32
dwSize                  As Long
cntUsage                As Long
th32ProcessID           As Long
th32DefaultHeapID       As Long
th32ModuleID            As Long
cntThreads              As Long
th32ParentProcessID     As Long
pcPriClassBase          As Long
dwFlags                 As Long
szExeFile               As String * MAX_PATH
End Type

Type FILETIME  '  8  Bytes
     dwLowDateTime As Long
     dwHighDateTime As Long
End Type

Public Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Long
End Type

Public Declare Function CreateToolhelpSnapshot Lib _
    "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal _
    lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function ProcessFirst Lib "kernel32" Alias _
    "Process32First" (ByVal hSnapShot As Long, uProcess As _
    PROCESSENTRY32) As Long
Public Declare Function ProcessNext Lib "kernel32" Alias _
    "Process32Next" (ByVal hSnapShot As Long, uProcess As _
    PROCESSENTRY32) As Long
Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass _
    As Long)

   I found the following code example for using OpenProcess and
GetExitCodeProcess to determine when a process has terminated.

Eric

Private Sub cmdWatch_Click()
   Dim ProcessId&
   Dim hProcess&
   Dim ExitCode&

   ProcessId = Shell("project1.exe", vbNormalFocus)
   hProcess = OpenProcess(PROCESS_QUERY_ INFORMATION, False, ProcessId)
   cmdWatch.Enabled = False
   Do
      Call GetExitCodeProcess(hProcess, ExitCode)
      DoEvents
   Loop While (ExitCode = STILL_ACTIVE)
   cmdWatch.Enabled = True
   Call CloseHandle(hProcess)
End Sub

On Mon, 20 Apr 1998 13:04:42 -0500, "erussell"

Thanks for the reply.

Blake

Please remove the 454 from my email address if responding
by email (SPAM protection):

On Mon, 20 Apr 1998 13:14:21 -0500, "erussell"

Blake

Please remove the 454 from my email address if responding
by email (SPAM protection):

Sub Win32WaitTilFinished(ProgEXE As String)
    Dim ProcessID As Long
    Dim hProcess As Long
    Dim RetVal As Long

    ProcessID = Shell(ProgEXE, vbNormalFocus)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False,
ProcessID)
    Do
        DoEvents
        RetVal = WaitForSingleObject(hProcess, 50)
    Loop Until RetVal <> WAIT_TIMEOUT
End Sub

Donkey

????????????????????????????????????????????
DOS never says "EXCELLENT command or filename"
-
Note: remove "NOSPAM" from my address
to e-mail me
????????????????????????????????????????????

Paul
~~~~

I have the same requirement as you and have tried the examples offered
and some in the KB and have not found a complete solution.

I want to run the shelled task hidden (or at a pinch minimised).

I can either

Wait for a task to finish using CreateProcessA and WaitforSingleObject
but wShowWindow element of STARTUPINFO doesn't seem to do anything

Or use Shell, OpenProcess and WaitforSingleObject and get it hidden but
Wait.. doesn't.

Any ideas ?

Thanks

Ian

On Tue, 21 Apr 1998 15:15:06 +0100, Ian Addinsell

If it's your own program, you could always do a "if
me.windowstate <> vbMinimized then me.windowstate =
vbMinimized" in the form's Activate event, I guess.  

Otherwise, have you tried the shell with a
vbMinimizedNoFocus [ex. ProcessId = Shell(PrgToExecute,
vbMinimizedNoFocus)]?  That might work.  Of course if they
click to maximize it's game over - the form pops up & haunts
you.

Other than that, I'm out of ideas - unless you want to get
really {*filter*} with some API's to hunt down the offending
app and monitor it's status.

I hope that helped a little.

Blake

Please remove the 454 from my email address if responding
by email (SPAM protection):

Paul
~~~~