Discussion :

[excalybur]

Bonjour,

Je lance un fichier exécutable (notepad.exe pour exemple) depuis le Form.

Par défaut il s'affiche en format minimized (1/4 de l'écran) à un emplacement aléatoire.

Je dimensionne et positionne la fenêtre du process en cours avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowPos(myProcess1.MainWindowHandle, IntPtr.Zero, 0, 0, 800, 1000, 0)

Mon programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Using myProcess1 As New Process()
 
 
                                            myProcess1.StartInfo.FileName = "C:\notepad.exe"   'charge le processus 
 
                                            myProcess1.Start() 'lance le process
 
                                            Thread.Sleep(100) 'laisse le temps au pocess de se lancer
 
                                            SetWindowPos(myProcess1.MainWindowHandle, IntPtr.Zero, 0, 0, 800, 1000, 0)  'dimensionner la fenêtre process 
 
                                            SetWindowText(myProcess1.MainWindowHandle, "TITRE NUMERO UN")  'change le titre de la fenêtre process
 
                                            'fermer la fenêtre en fin de processus :
                                            myProcess1.WaitForExit()  'attend qu'il soit terminé avant d'aller plus loin
                                            myProcess1.Close()  'ferme le process
                                        End Using

On note que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Thread.Sleep(100)

laisse le temps au pocess de se lancer sauf que dans certains cas (mise à jour du PC, etc.) ce délai est trop court et le process démarre définitivement dans le format aléatoire vu plus haut.

Si j'augmente la durée de Thread.Sleep l'écran va flasher une fraction de seconde sur le format aléatoire avant de passer au format imposé. => pas terrible !

Bien sur on ne peut pas mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowPos(myProcess1.MainWindowHandle, IntPtr.Zero, 0, 0, 800, 1000, 0)

avant myProcess1.Start

Ma question :

Comment synchroniser SetWindowPos avec myProcess1.Start pour éviter les problèmes évoqués ci-dessus. Je n'ai rien trouvé sur les rares sujets traitant du sujet

En vous remerciant pour votre aide.

Bien à vous

[MABROUKI]

bonjour

Code exemple qui fera peut être ton bonheur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Imports System.Runtime.InteropServices
Public Class Form1
    Private myProcess As Process
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Dim pi As New ProcessStartInfo
        'pi.FileName = "notepad"
        'myProcess = New Process
        'myProcess.StartInfo = pi
        'myProcess.Start()
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        StartProcess()
        If myProcess Is Nothing Then Return
        myProcess.WaitForInputIdle()
        Dim handle As IntPtr = myProcess.MainWindowHandle
        If handle <> IntPtr.Zero Then
            SetWindowPos(handle, 0, 150, 0, 400, 250, 0)
        End If
 
 
    End Sub
    Private Sub StartProcess()
        Dim pi As New ProcessStartInfo
        pi.FileName = "notepad"
        myProcess = New Process
        myProcess.StartInfo = pi
        myProcess.Start()
 
    End Sub
  Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If myProcess IsNot Nothing Then
            myProcess.WaitForExit()
            myProcess.CloseMainWindow()
        End If
    End Sub
 
    <DllImport("user32.dll", EntryPoint:="SetWindowPos")>
    Public Shared Function SetWindowPos(HWND As IntPtr,
                                        hWndInsertAfter As IntPtr,
                                        Xpos As Integer, Ypos As Integer, xSize As Integer, ySize As Integer, wFlags As Integer) As IntPtr
    End Function
 
 
End Class

bon code ...

[excalybur]

Merci pour la réponse,

J'étudie la chose car apparemment cela ne marche pas avec tous les exe.

Je reviens vers vous après mon analyse.

[excalybur]

Bonsoir,

Excusez-moi pour ce retard j'ai dû régler des urgences en ces temps compliqué.

Pour revenir au sujet de la discussion, j'ai essayé le code proposé et il fonctionne parfaitement avec Notepad.exe

Par contre en remplaçant notepad.exe avec mon exe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Imports System.Runtime.InteropServices
Imports System.Threading
 
Public Class Form1
    Private myProcess As Process
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        Dim pi As New ProcessStartInfo
        '  pi.FileName = "notepad"
        pi.FileName = "d:\sbwin\py483USR\pywin64.exe"
        myProcess = New Process
        myProcess.StartInfo = pi
        myProcess.Start()
 
        If myProcess Is Nothing Then Return
        myProcess.WaitForInputIdle()
        Dim handle As IntPtr = myProcess.MainWindowHandle
        If handle <> IntPtr.Zero Then
            SetWindowPos(handle, 0, 150, 0, 600, 250, 0)
        End If
    End Sub
 
    Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If myProcess IsNot Nothing Then
            myProcess.WaitForExit()
            myProcess.CloseMainWindow()
        End If
    End Sub
 
    <DllImport("user32.dll", EntryPoint:="SetWindowPos")>
    Public Shared Function SetWindowPos(HWND As IntPtr,
                                        hWndInsertAfter As IntPtr,
                                        Xpos As Integer, Ypos As Integer, xSize As Integer, ySize As Integer, wFlags As Integer) As IntPtr
    End Function
 
End Class

j'obtiens une erreur à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myProcess.WaitForInputIdle()

qui précise : "Echec de WaitForInputIdle. Cet échec est peut-être dû à l'absence d'interface graphique pour le processus"

Cette curieuse erreur n'a pas de sens (pour l'interface graphique) à mon avis car avec la version que je propose dans le topic initial mon EXE fonctionne nickel sauf pour ce qui est du problème d'affichage parfois aléatoire.

En fait la fenêtre minimized et à une position aléatoire de mon application apparait bien et de plus fonctionne bien. Sauf que la fenêtre n'a pas pris la bonne taille. Il y a un autre problème avec SetWindowsPos. (Problème inexistant dans mon application initiale).

Je pense que le problème est dû à la configuration de certains EXE. Il manque peut être un Import et une précision du WaitForInputIdle ?

J'ai passé beaucoup de temps à essayer de trouver une explication et là j'avoue je cale !

Si quelqu'un à une idée car on est pas loin d'une application utile pour tous les EXE.

A vous lire

[MABROUKI]

bonjour

Je pense qu'il faut sortir le code de positionnement dans un second button:
code vb.net modifie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If myProcess IsNot Nothing Then
            myProcess.WaitForInputIdle()
            Dim handle As IntPtr = myProcess.MainWindowHandle
            If handle <> IntPtr.Zero Then
                Dim retval = SetWindowPos(handle, 0, 400, 400, 100, 100, 0)
            End If
        End If
    End Sub

[excalybur]

Bonsoir,

Merci pour ta réponse. Je ne vois pas pourquoi avec un deuxième bouton cela devrait fonctionner car je ne comprends pas la logique. A moins que tu ne veuille donner du temps à mon exe. c'est vrai qu'il met une bonne seconde pour s'afficher.

En rendant ton sub public et en le testant avec un deuxième bouton j'ai toujours le retour de la même erreur.

Précision cet exe a été écrit en langage C sous Linux mais pour application Windows 64.

Il serait intéressant de faire le test avec d'autre exe pour console.

Je continu à creuser !

[Edit - complément]

En recherchant sur les sites anglophones, le problème est récurant. Si notepad marche il n'en est rien pour cmd.exe

Avec le test avec cmd.exe j'obtiens le même message d'erreur que pour mon programme pywin64

Il semblerait (version du topic pour VB de 2014 ) qu'il s'agirait d'un problème lié aux UI sans autres explications.

Si vous avez une idée ?

A vous lire.

Bien à vous