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. |
Partager