2 pièce(s) jointe(s)
Essais de l'outil InputBox
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:
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.
