IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez Pascal Discussion :

Essais de l'outil InputBox


Sujet :

Contribuez Pascal

  1. #1
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    3 823
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 3 823
    Points : 13 662
    Points
    13 662
    Billets dans le blog
    8
    Par défaut 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 : 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.
    Images attachées Images attachées  
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [outil]Améliorer la fonction InputBox
    Par omen999 dans le forum VBScript
    Réponses: 1
    Dernier message: 03/01/2007, 15h09
  2. Outils, cours et NOUVEAUX tutoriels pour Borland C++Builder
    Par hiko-seijuro dans le forum C++Builder
    Réponses: 10
    Dernier message: 12/03/2006, 22h33
  3. [VB6] [Interface] Icones de boutons de barre d'outils
    Par elifqaoui dans le forum VB 6 et antérieur
    Réponses: 9
    Dernier message: 13/09/2002, 15h50
  4. Barre d'outils
    Par MANU_2 dans le forum Composants VCL
    Réponses: 3
    Dernier message: 04/08/2002, 22h48
  5. OUTILS GRATUITS
    Par bertlef dans le forum CORBA
    Réponses: 5
    Dernier message: 11/06/2002, 10h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo