Developpez.com

Plus de 14 000 cours et tutoriels en informatique professionnelle à consulter, à télécharger ou à visionner en vidéo.

Developpez.com - Pascal
X

Choisissez d'abord la catégorieensuite la rubrique :

 

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.

Responsables bénévoles de la rubrique Pascal : Gilles Vasseur - Alcatîz -