Discussion :

[cincap]

Bonjour à toutes et à tous,

Malgré la discussion pour une commande "Dos", je n'arrive pas a exécuter cette commande avec "Shellexecute".

Manuellement en tapant dans "Executer" cette commande : cmd /k ipconfig

cela fonctionne.

Code :

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

1
2
3
 
 
ShellExecute(0,'OPEN','cmd /k ipconfig',nil,nil,SW_SHOWMAXIMIZED);

Quelqu'un a une idée, merci d'avance.

@+,

Cincap

[cincap]

Désolé, j'ai trouvé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
const
CmdSwitchs : array [0..1] of String = ('/c ', '/k ');
 
procedure TFServer.BipconfigClick(Sender: TObject);
Var
aCmdLine : PChar;
begin
aCmdLine := PChar(cmdSwitch + ' /k ipconfig');
 
ShellExecute(Handle, nil, 'CMD', aCmdLine, nil, sw_ShowNormal);
 
end;

@+,

Cincap

[Charly910]

Bonjour,

cela fonctionne avec :

Code :

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

1
2
3
4
5
6
procedure TFServer.BipconfigClick(Sender: TObject);Var
   aCmdLine : PChar;
Begin
   aCmdLine := PChar(' /k ipconfig');
   ShellExecute(Handle, nil, 'CMD', aCmdLine, nil, sw_ShowNormal);
End;

dans ton code cmdSwitch n'est pas défini et ne sert pas ?

A+ Charly

[cincap]

@ Charly910,

Bien vu, j'ai testé mais le problème c'est que je voulais faire un print screen de la fenêtre "Dos" et puis la fermer et la problème même en utilisant :

Code :

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

1
2
3
 
aCmdLine := PChar(' /k "start /wait ipconfig&&Exit"');
   ShellExecute(Handle, nil, 'CMD', aCmdLine, nil, sw_ShowNormal);

En effet la fenêtre se ferme trop vite avant le printscreen. de celle ci

As tu une idée si c'est faisable.

@+,

Cincap

[cincap]

Bonsoir,

Ok, ce topic est bien terminé.

Je récupère le handle de la fenêtre dos avant le printscreen puis je le termine par la récupération du message (WM_Close).

@+,

Cincap