Discussion :

[Roland Chastain]

Bonjour !

Je suis tombé sur ce petit outil assez bien fait. Je me suis amusé à l'essayer avec FreePascal. C'était aussi l'occasion de revoir l'utilisation de l'unité Process.

Voici par exemple un programme qui utilise l'outil InputBox pour la saisie d'un mot de passe.

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
 
program TestInputBox6;
{$APPTYPE CONSOLE}
{$MODE DELPHI}
 
uses
  Process, Classes;
 
var
  pss: tProcess;
  lst: tStringList;
 
begin
  pss := tProcess.Create(nil);
  lst := tStringList.Create;
 
  pss.Executable := 'InputBox.exe';
  pss.Parameters.Add('-prompt');
  pss.Parameters.Add('"Veuillez saisir votre mot de passe :"');
  pss.Parameters.Add('-title "Saisie du mot de passe"');
  pss.Parameters.Add('-hide');
 
  pss.Options := pss.Options + [poWaitOnExit, poUsePipes];
  pss.Execute;
 
  lst.LoadFromStream(pss.Output);
 
  WriteLn('-->"', lst[0], '"');
 
  lst.Free;
  pss.Free;
 
  Write('Appuyez sur la touche Entr'#130'e...');
  ReadLn;
end.

Les essais ont été effectués sous Windows 8.

Soit dit en passant, j'ai vu que l'unité Process avait été portée vers Delphi. Je n'ai pas eu le temps de l'essayer mais voici le lien.