[VB6] Aspettare chiusura di un applicazione

[Veronica80]

Ciao!
Come faccio a sapere quando ho chiuso il mio documento Word aperto con ShellExecute?

Ho fatto un timer ma nn so cosa mettere per effettuare il controllo.

Il fatto è che il mio software apre il doc word con shellExecute e quando il doc viene chiuso esegue delle operazioni sul file...solo che non so come controllare quando è stato kiuso o meno...

GRAZIE!!!

[oregon]

Linguaggio ? Regolamento ?

[Veronica80]

Linguaggio: VB6

Mi son dimenticata....

[alka]

Ho aggiunto io il linguaggio, ma va sempre inserito come da Regolamento.

[xegallo]

prova a controllare lo stato del processo.
shellexecute ti restituisce il PID
controllalo periodicamente con la funzione GetExitCodeProcess

[Veronica80]

Originariamente inviato da alka
Ho aggiunto io il linguaggio, ma va sempre inserito come da Regolamento.

Lo so!!! Mi son dimenticataaa!

Originariamente inviato da xeregallo
shellexecute ti restituisce il PID
controllalo periodicamente con la funzione GetExitCodeProcess

ora faccio una ricerca...non l'ho mai sentite ste funzioni! VVoVe:

[Veronica80]

aiuto! Non ci capisco nulla!

Il punto è che io ho dichiarato una variabile di tipo Long per l'uso della ShellExecute e quel tipo di oggetto non mi da nessuna proprietà o altro...

[xegallo]

Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STATUS_PENDING = &H103&

Private Declare Function OpenProcess Lib "kernel32" _
    (ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _
    (ByVal hProcess As Long, lpExitCode As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
    (ByVal hObject As Long) As Long

Private Sub ShellAndWait(sFile As String, Visualizzazione As Long)
Dim hProcess As Long
Dim ProcessId As Long
Dim CodExit As Long

    ProcessId = Shell(sFile, Visualizzazione)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId)
    Do
        Call GetExitCodeProcess(hProcess, CodExit)
        DoEvents
    Loop While CodExit = STATUS_PENDING

    Call CloseHandle(hProcess)
End Sub

sostituisci la shell con shellexecute

[Veronica80]

Grazie Xere!
Allora...premetto che non ho ben capito come usare il codice....cmq...io ho messo:

ProcessId = ShellExecute(Handle, "open", App.Path & "\archivio\libro.doc", 0, 0, 1)

al posto di:

ProcessId = Shell(sFile, Visualizzazione)

poi nel mio programma uso un bottone per avviare il tutto dove ho rikiamato la funzione con:

Private Sub bttApriWord_Click()
        ShellAndWait
end sub

solo che mi da errore...:
"Argomento non facoltativo"....è che sto andando un po' alla cieca perchè nn conosco queste API...

[Veronica80]

spetta spetta! Forse ci sono arrivata!


Ho tolto la dichiarazione:

(sFile As String, Visualizzazione As Long)


visto che io non uso variabili per definire quei valori!