home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / dos / prg / protect / noticew.txt < prev    next >
Text File  |  1995-07-08  |  1KB  |  26 lines
  1. ////////////////////////////////////////////////////////////////////////////
  2. //       Guide Reference de PROTECT sous Windows (Version Shareware)      // 
  3. ////////////////////////////////////////////////////////////////////////////
  4.  
  5. Pour une utilisation sous 'Windows 3.1' il vous suffit d'insérer:
  6. 'USES PIRATESW;'
  7. Les procédures de testes restent identiques à celles utilisées sous DOS.
  8. Voici une procédure qui réagit après l'envoie d'une commande appelant 
  9. Cm.TesterDisk.
  10.  
  11. PROCEDURE Tprotectwindow.TesterDisk(VAR Msg: Tmessage);
  12. VAR S: ARRAY [0..50] OF CHAR;
  13. VAR Number: INTEGER;
  14. BEGIN
  15. IF (TEST=TRUE)  THEN Strpcopy(S,`GOOD DISK`)
  16.                 ELSE Strpcopy(S,`BAD DISK`);
  17. MessageBox(HWindow,S,`Résultat`,Mb_OK);
  18. Number:=NUMERODISK;
  19. Strpcopy(S,`Le compteur est à plus 3`);
  20. IF (Number=$00)         THEN Strpcopy(S,`Le compteur est à Zéro`);
  21. IF (Number=$01)         THEN Strpcopy(S,`Le compteur est à Un`)
  22. IF (Number=$02)         THEN Strpcopy(S,`Le compteur est à Deux`);
  23. IF (Number=$03)         THEN Strpcopy(S,`Le compteur est à Trois`);
  24. MessageBox(HWindow,S,`Résultat`,Mb_OK);
  25. END;
  26.