////////////////////////////////////////////////////////////////////////////
//       Guide Reference de PROTECT sous Windows (Version Shareware)      // 
////////////////////////////////////////////////////////////////////////////

Pour une utilisation sous 'Windows 3.1' il vous suffit d'ins‚rer:
'USES PIRATESW;'
Les proc‚dures de testes restent identiques … celles utilis‚es sous DOS.
Voici une proc‚dure qui r‚agit aprŠs l'envoie d'une commande appelant 
Cm.TesterDisk.

PROCEDURE Tprotectwindow.TesterDisk(VAR Msg: Tmessage);
VAR S: ARRAY [0..50] OF CHAR;
VAR Number: INTEGER;
BEGIN
IF (TEST=TRUE)  THEN Strpcopy(S,`GOOD DISK`)
                ELSE Strpcopy(S,`BAD DISK`);
MessageBox(HWindow,S,`R‚sultat`,Mb_OK);
Number:=NUMERODISK;
Strpcopy(S,`Le compteur est … plus 3`);
IF (Number=$00)         THEN Strpcopy(S,`Le compteur est … Z‚ro`);
IF (Number=$01)         THEN Strpcopy(S,`Le compteur est … Un`)
IF (Number=$02)         THEN Strpcopy(S,`Le compteur est … Deux`);
IF (Number=$03)         THEN Strpcopy(S,`Le compteur est … Trois`);
MessageBox(HWindow,S,`R‚sultat`,Mb_OK);
END;