Process.Start : comment minimiser la fenêtre au lancement ?

Question

Bonjour,

Comment minimiser (mettre en barre de tâche) une fenêtre (msDos) lancée par Process.Start ?

Dim pp As Process = Process.Start("formatUSB.bat")

Merci, cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 1

Bonjour Cleber,

Merci mais ça ne marche pas ! Ton code fait planter mes deux dernières lignes de code, voici :

Comment faire stp ?

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 2

Bonjour,

Que voulez vous dire pas inopérant ?

Je viens de tester le code et cela fonctionne sans aucun problème...

Cordialement

---

Gilles TOURREAU - MVP C#
Architecte logiciel/Consultant/Formateur Freelance
Blog : http://gilles.tourreau.fr
- MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
- MCITP : SQL Server 2008 Developper
- MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0

Answer 3

Bonjour Gilles,

Le nouveau code proposé fait planter la suite du code, voici une image :

Comment faire pour que les deux dernières lignes fonctionnent ?

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 4

Bonjour EhJoe

Vous devez démarrer le processus avant WaitForExit.
Si je vois bien, dans votre cas il n’y a pas aucun pp.Start () avant WaitForExit().

Cordialement,

---

Aurel BERA, MSFT
MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

Answer 5

Bonjour Aurel,

♀a fonctionne mais j'ai une erreur :

 Sub formate1()
    Dim pp As New Process ' déclaration associé à Process
    Dim p As New System.IO.StreamWriter(My.Application.Info.DirectoryPath & "\formatUSB.bat") ' crée fichier
    p.WriteLine("ren /? | format " & usb(1) & ":/q/v:"""" > nul") ' charge fichier
    p.Close() ' ferme fichier bat
    pp.StartInfo.FileName = "formatUSB.bat" ' ligne de commande
    pp.StartInfo.Arguments = "" ' ???
    pp.StartInfo.WindowStyle = ProcessWindowStyle.Hidden ' en barre de tâche
    pp.Start() ' lance le processus
    pp.WaitForExit() ' attend la fin avant de poursuivre

    pp.Close() ' ferme
    pp.Dispose() ' désalloue
    Kill(My.Application.Info.DirectoryPath & "\formatUSB.bat") ' supprime fichier bat
  End Sub

???

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 6

Bonjour,

Votre code semble bien fonctionner chez moi.
Pouvez-vous regarder dans l'observateur d'événement (journal "Application") et nous indiquer le message d'erreur qui est généré ?

Cordialement

---

Gilles TOURREAU - MVP C#
Architecte logiciel/Consultant/Formateur Freelance
Blog : http://gilles.tourreau.fr
- MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
- MCITP : SQL Server 2008 Developper
- MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0

Answer 7

Pouvez-vous utiliser le debugger pour voir ou il plante?

Je dirais que le problème c'est à la ligne:
  Kill(My.Application.Info.DirectoryPath & "\formatUSB.bat") '
Avec pp.WaitForExit() vous attendez le fin du ce processus, et après vous essayez de le terminer avec Kill.

Cordialement

---

Aurel BERA, MSFT
MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

Answer 8

Gilles,

Comment se nomme le fichier "journal des applications", et dans quel dossier d'origine, il s'ouvre avec quoi, comment ?

Est-ce que je dois importer des entêtes, car je n'ai rien importé ?

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 9

Aurel,

L'erreur se produit durant le "waitForExit".

Le kill n'est pas associé à l'identificateur "pp.", il fonctionne quand il n'y a pas d'erreur avant, ne faisant que supprimer un fichier fermé existant.

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 10

Si vous executez le fichier BAT a main?

Il fonctionne bien?

 

---

Aurel BERA, MSFT
MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

Answer 11

suite Aurel...

Oui le bat fonctionne bien tout seul, en fait je me suis trompé, toutes les instructions sont exécutées, y compris le Kill, ce n'est qu'après que l'erreur survient, mais je crois qu'elle ne survient pas du programme mais de l'OS, alors ???

Je vais tenter de faire la même chose avec d'autres dll Shell...

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 12

Dans la doc Process.Dispose ils écrivent:

Cette API prend en charge l'infrastructure .NET Framework et n'est pas destinée à être utilisée directement à partir de votre code.

Donc je dirais qu'ici c'est le problème!

Aussi essayez de ne plus effacer avec Kill.

Cordialement,

---

Aurel BERA, MSFT
MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

Answer 13

Bonjour

pour CLeBer : Kill n'arrete pas le processus, mais efface le fichier.

Je suis tombé dans le piège.

Cordialement, 

---

Aurel BERA, MSFT
MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

Answer 14

Aurel, Cleber

Absolument, c'est close qui arrête et dispose qui désalloue, le kill ensuite n'a rien à voir.

Mais comme nul ne trouve où est le problème je vais essayer de le faire par Shell.

Au plaisir, cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 15

Ceci suffit :

 Shell("formatUSB.bat", vbMinimizedFocus, True, 6000)
    Kill(My.Application.Info.DirectoryPath & "\formatUSB.bat")

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---