Accueil
Rechercher:
sur developpez.com sur les forums
Forums | Tutoriels | F.A.Q's | Participez | Hébergement | Contacts
Club Emploi Blogs   TV   Dév. Web PHP XML Python Autres 2D-3D-Jeux Sécurité Windows Linux PC Mac
Accueil Conception Java DotNET Visual Basic  C  C++ Delphi MS-Office SQL & SGBD Oracle  4D  Business Intelligence
ACCUEIL PASCAL FORUM PASCAL F.A.Q PASCAL TUTORIELS PASCAL SOURCES COMPILATEURS OUTILS LIVRES
 

CHAPITRE XIX : Paramètres et TSR

Par Hugo ETIEVANT

Lorsqu'on distribue un programme créé sur Turbo Pascal 7.0, il est de bon augure de pouvoir passer des paramètres en ligne de commande lors du lancement sous MS-DOS, de pouvoir rendre résident en mémoire le dit programme (Terminate Stay Resident).

Keep ( error ) ;
Procédure qui rend résident en mémoir le programme (TSR). Et renvoit sous la forme d'une variable error de type word le code erreur de sortie. Nécessite l'unité Dos.
Syntaxe :

Keep(0) ;

ParamCount
Fonction qui renvoit le nombre de paramètres passés en ligne de comande lors du lancement du programme sous une valeur de type word. Présent dans l'unité System (inutile à spécifier).
Syntaxe :

i := ParamCount ;

ParamStr(i)
Fonction qui renvoit la chaîne passée en commande selon sa place i (word) dans l'index. Présent dans l'unité System.
Syntaxe :
s := ParamStr(i) ;

Program exemple23 ;
Uses dos ;
Var i : word ;
    f : text ;
    s : string ;
Procedure acces ;
Begin
WriteLn('Ok') ;
...
End ;
BEGIN
Assign(f,'password.dat') ;
Reset(f) ;
ReadLn(f,s) ;
If ParamStr(1) = s Then acces
                   Else WriteLn('
Acces denied.') ;
END.

Ce programme exemple23 est protégé d'accès. C'est-à-dire que seul un code passé en ligne de commande (et contenu dans un fichier) permet à l'utilisateur de faire tourner le programme. On aurait put créer des procédures paramétrées dont les paramètres soient ceux passés en ligne de commande, comme pour un compacteur en mode MS-DOS, par exemple.

Responsable bénévole de la rubrique Pascal : wormful_sickfoot - Contacter par EMail :
Vos questions techniques : forum d'entraide Pascal - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Copyright © 2000-2008 www.developpez.com - Legal informations.