home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / dos / prg / protect / teste.pas < prev   
Pascal/Delphi Source File  |  1995-07-08  |  2KB  |  41 lines
  1. { COPYRIGHT CHAN PIU NICOLAS }
  2. { Un fichier exemple pour utiliser Protect }
  3. { Pour plus de détail voir fichier Protect.hlp }
  4.  
  5. PROGRAM TESTE;
  6. USES PIRATES;
  7.  
  8. BEGIN
  9.      Lecteur:='A';
  10.      Codesecret:='Code-Cles nicolas';             {Le code de la disquette}
  11.      IF TEST=TRUE THEN
  12.                   WRITELN('Les données entrées correspondent avec celles de la disquette')
  13.                   ELSE
  14.                   WRITELN('Les données entrées ne correspondent pas avec celles de la disquette');
  15.      WRITELN('Le numéro de la disquette est: ',NUMERODISK);        {1..255 Si Probleme alors 255}
  16.      WRITE('Entrer votre nom: ');
  17.      READLN(Nom);
  18.      IF SAUVENOM=TRUE THEN
  19.      WRITELN('L ecriture du nom est réussie')
  20.                       ELSE
  21.      WRITELN('L ecriture du nom est un echec');
  22.      Nom:='Nouveau nom';
  23.      IF (LITNOM=TRUE) THEN
  24.                       WRITELN('Le nom lu sur la disquette est: ',Nom)
  25.                       ELSE
  26.                       WRITELN('Un probleme est survevue... Disquette?');
  27.      Chemin:='d:\temp\protect.cch';
  28.      IF SAUVEDISK=TRUE THEN
  29.                        WRITELN('Les Informations sont bien enregistrees sur Disque Dur')
  30.                        ELSE
  31.                        WRITELN('Probleme lors de l ecriture des Informations');
  32.      IF LITDISK=TRUE   THEN
  33.                        WRITELN('Vous avez le Bon Disque, Informations OK')
  34.                        ELSE
  35.                        WRITELN('Vous avez le mauvais Disque, Information BAD');
  36.      WRITELN('Affichage d''un dessin après appui d''Enter');
  37.      WRITELN('vous indiquant que la disquette n''est pas la bonne');
  38.      READLN;
  39.      FAUX;
  40. END.
  41.