Problème de Windows?

Question

Bonjour. J'ai un programme qui est sens&#233; appeler une application et attendre que cette application se termine avant de continuer a tourner. Ca fonctionne tres bien sous NT et 2000 mais &#231;a marche pas quand je veux le mettre sous XP. Voil&#224; le bout de programme concern&#233; si queulqu'un a une id&#233;e...
Le code a &#233;t&#233; r&#233;cup&#233;r&#233; sur ce site.

Merci d'avance

Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Public Const PROCESS_QUERY_INFORMATION = &H400
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long


   Public Function ExecCmd(cmdline$)
    Dim reponse As Integer
    Dim reponse2 As Long
    
    reponse = Shell(cmdline$, vbHide)
    Debug.Print reponse


    If reponse > 0 Then
' Boucle d'attente de la fin d'ex&#233;cution
        Do
            reponse2 = OpenProcess(PROCESS_QUERY_INFORMATION, False, reponse)
            Debug.Print reponse2
        Loop While (reponse2 <> 0)
    End If
   End Function

j621473 · Answer

Hello

Je suis novice en la mati&#232;re mais j'utilise ShellWait et ca marche plutot bien

voici :

'Fonction priv&#233; qui fonctionne uniquement sur cette feuille


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 Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400


'    Fonction public qui &#233;x&#233;cute JobToDo


Public Sub ShellWait(ByVal JobToDo As String)
Dim hProcess As Long, retval As Long
    
  hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(JobToDo, vbMinimizedNoFocus))
  Do
    GetExitCodeProcess hProcess, retval
    DoEvents
    Sleep 100
  Loop While retval = STILL_ACTIVE
End Sub

Private Sub Form_Load()
   ShellWait "regedit /s " & GetShortPath("C:\Program Files") & "\XELEC\PCI\xelec_var.reg"
End Sub

voici voilou

A++

BruNews · Answer

Y a pas besoin de boucle.

CreateProcess ou ShellExecuteEx
WaitForSingleObject
CloseHandle

ciao...
BruNews, MVP VC++

Problème de Windows?

2 réponses

Discussions similaires