Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare .EXE da VB.

Mi serve assolutamente una mano o sono spacciato!
Come posso fare a lanciare un eseguibile .EXE da VB ed attendere che
questo termini prima di continuare l'esecuzione della rutine chiamante.
In alternativa, come posso monitorare lo stato di un processo di cui
conosco ID (ad esempio tramite l'istruzione SHELL) per scoprire se č
attivo o no?
Vi ringrazio dell'aiuto che vorrete concedermi.
                    Ciao Massimo.

L'unico modo convenzionale è utilizzare la shell e ciclare successivamente
testando che la finestra che hai creato esista ancora. Per far ciò puoi
utilizzare l'API FindWindow che ti riporto di seguito:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
chiamandola in questo modo:
call FindWindow(vbNullString, "caption della finestra da aspettare")
o qualcosa del genere  :-)
Altrimenti non so se esiste un'API che esegue una chiamata sincrona ad un
altro task :-(
Ciao
Riccardo



 o qualcosa del genere  :-)
Il problema è che se lancio un eseguibile non so quale caption ha la finestra
da aspettare.
Come faccio in questo caso?
    Grazie mille in ogni caso.
                        MASSIMO

...


Nella sezione dichiarazioni
Private Type STARTUPINFO
   cb As Long
   lpReserved As String
   lpDesktop As String
   lpTitle As String
   dwX As Long
   dwY As Long
   dwXSize As Long
   dwYSize As Long
   dwXCountChars As Long
   dwYCountChars As Long
   dwFillAttribute As Long
   dwFlags As Long
   wShowWindow As Integer
   cbReserved2 As Integer
   lpReserved2 As Long
   hStdInput As Long
   hStdOutput As Long
   hStdError As Long
End Type
Private Type PROCESS_INFORMATION
   hProcess As Long
   hThread As Long
   dwProcessID As Long
   dwThreadID As Long
End Type
Private Declare Function WaitForSingleObject Lib _
"kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds _
As Long) As Long
Declare Function CreateProcessA Lib "kernel32" _
(ByVal lpApplicationName As Long, ByVal lpCommandLine As _
String, ByVal lpProcessAttributes As Long, ByVal _
lpThreadAttributes As Long, ByVal bInheritHandles As Long, _
ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, _
ByVal lpCurrentDirectory As Long, lpStartupInfo As _
STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) _
As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject _
As Long) As Long
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const INFINITE = -1&
Procedure
Metti il codice seguente nel tuo progetto,puoi chiamare un programma esterno
da qualsiasi punto,semplicemente con : call ExecCmd(programma)
Public Sub ExecCmd(cmdline$)
  Dim proc As PROCESS_INFORMATION
  Dim start As STARTUPINFO
  start.cb = Len(start)    "inizializza la struttura STARTUPINFO"
  ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _    "lancia l'exe "
  NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
"attende la fine dell'applicazione"
  ret& = WaitForSingleObject(proc.hProcess, INFINITE)
  ret& = CloseHandle(proc.hProcess)
End Sub
---------
Ciao
Vedi a 
Http://www.lunet.it/offerte/berti/faq.html
  per questa e altre faq.
***************************************************
BERTI CARLO ************************************
Visual Basic & HTML *******************************
Http://www.lunet.it/offerte/berti
 ***********************
********************************************************

Come posso fare a lanciare un eseguibile .EXE da VB ed attendere che
Io utilizzo qs funzioni per eseguire un programma da dos e aspettare
che abbia finito prima di proseguire.
da inserire nel modulo
Declare Function getmoduleusage% Lib "kernel" (ByVal hmodule%)
'Funzione per eseguire un comando DOS
da inserire nella form
    X% = Shell("xxx.bat")
    While getmoduleusage(X%) > 0
    z% = DoEvents()
    Wend
esegue la chiamata api e aspetta che abbia finito prima di proseguire.
Bye 
Daniele
+--------------------------------------+
 E-mail to:<ld...@NOSPAMtuttocitta.it>
        (togliere...NOSPAM)
     (please remove...NOSPAM)
+---------------------------------------+