Bonjour,
Je souhaiterais récupérer les informations d'une fênetre DOS.
Après plusieurs essais, je me suis tourné vers le TJvCreateProcess
Mais j'arrive à créer le process mais pas à récupérer les infos
Est - ce bien par la métode JvCreateProcess1RawRead ?
Comment est ce que cela fonctionne ?
Il marche jusqu'au JvCreateProcess1.WriteLn('alice006');
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 procedure TFormSW.BitBtn1Click(Sender: TObject); begin try JvCreateProcess1.ApplicationName := 'plink.exe'; // JvCreateProcess1.CurrentDirectory := ExtractFileDir(Application.GetNamePath); JvCreateProcess1.CommandLine := ' -ssh ldapsup@AUBSUP29'; JvCreateProcess1.Run; JvCreateProcess1.WriteLn('alice006'); sleep(500); JvCreateProcess1.WriteLn('cd cat'); JvCreateProcess1.WriteLn('runmed') finally // JvCreateProcess1.Free; end; end; procedure TFormSW.JvCreateProcess1Read(Sender: TObject; const S: string; const StartsOnNewLine: Boolean); begin // C is the Form Feed char. if S = #$C then begin // Clear screen ListBox1.Clear; end else if StartsOnNewLine then // Add new line1 ListBox1.Items.Add(S) else // Change last line ListBox1.Items[ListBox1.Count - 1] := S; end;
mais après il me fait plus rien il me rentre pas dans le répertoire cat
Merci
Partager