Discussion :

[chleuh]

Bonjour,
En fait j'ai un petit souci avec la commande winexec
en fait j'ai une procedure qui me lance cette commande :

Code :

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

1
2
3
4
5
6
7
 
begin
fichiertemp := GetTempDirectory+'rc.txt';
   WinExec(
     PChar('COMMAND.COM /K ipconfig/all > '+fichiertemp),
      SW_HIDE
     );

GetTempDirectory est une fonction qui me retourne le chemin du dossier temporaire. Donc je sauvegarde le fichier sous rc.txt et j'essaie de l'analyser avec ma procedure analyse
C'est là que le bat blesse, je me rend compte que WinExec me génére un processus apelé ntvdm.exe et donc il ya un conflit de lecture/ecriture sur mon fichier
Ma question est comment s'assuré de la fin de la ligne de commande WinExec?
Merci bcp

[Tardiff Jean-François]

bonjour,

essayer ce code.

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
 
function LanceAppliAttenteFin(NomFichier:string):boolean;
{permet de lancer un exécutable. NomFichier est le nom avec chemin     }
{de cet exécutable ou d'un raccourci qui pointe vers cet exécutable.   }
{ notre programme est arrété tant que l'exécutable n'est pas fini      }
{tout est arrété on ne peut donc même plus déplacer sa fenêtre.        }
{ il est donc préférable de la rendre invisible avant le lancement     }
{de cette fonction.                                                    }
{ LanceAppliAttenteFin renvoie true si le lancement s'est bien passé   }
var
  StartInfo : TStartupInfo;
  ProcessInformation : TProcessInformation;
begin
  result:=true;
  ZeroMemory(@StartInfo, sizeof(StartInfo)); // remplie de 0 StartInfo
  StartInfo.cb:=sizeof(StartInfo);
  if CreateProcess(nil,PChar(NomFichier),nil,nil,true,0,nil,nil,StartInfo,ProcessInformation)
  then WaitForSingleObject(ProcessInformation.hProcess, INFINITE)// attend que l'application désignée par le handle ProcessInformation.hProcess soit terminée
  else result:=false;
end;

Nota:
Winexec est obsolète. il vaudrait mieux utiliser shellExecute.
Si votre delphi est sufisament recent (a partir de delphi 5 ou 6 je crois) il existe une fonction IncludeTrailingPathDelimiter qui ajoute eventuellment un \ à la fin d'un repertoire. cela permettrait de securiser votre getTempdirectory si besoin est.

[chleuh]

Merci ca m'aide beaucoup,
par contre j'aurais souhaité en fait souhaité avoir la meme commande que dans mon exec mais je ne peux pas faire ca avec un fichier executable?

[Tardiff Jean-François]

Pas a ma conaissance.
Ceci dis, dans de telle cas j'utilise la manière la plus basic. Je cré un fichier .bat et je le deroule. Par conséquence je ne connait pas les subtilités de ce genre de tache.

[chleuh]

C'est exactement ce que j'ai fais mais si je fais la fine bouche pendant une fraction de seconde on vois une fenetre dos et j'aurais souhaité la masquée
En tout cas merci bcp tu m'as bien avancé