[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
UNITS08.PAS

 { ---------------------------------------------------------------- }
 {              MEHRFACHES .FFNEN VON DATEIEN W/O SHARE             }
 { ---------------------------------------------------------------- }
 { Versucht, den eigenen Quelltext ('UNITS08.PAS') gleichzeitig     }
 { zwei mal zu .ffnen. Ohne Verwendung von SHARE oder eines NetBIOS-}
 { Treibers gelingt dies auch (was in einem Anwendungsprogramm ziem-}
 { liche Verwirrung stiften kann), wenn zuvor SHARE o... resident   }
 { geladen wurde, so wird beim zweiten .ffnungsversuch IORESULT auf }
 { 5 ("Access denied") gesetzt.                                     }
 { ---------------------------------------------------------------- }
 { Die ganze Sache funktioniert aber nur deshalb, weil FILEMODE     }
 { (eine typisierte Konstante aus der TP-Unit SYSTEM, die standard- }
 { m..ig auf 2 gesetzt ist und beim .ffnen von Dateien den Modus    }
 { angibt; n.here Erkl.rung siehe Unit "DBTypes") am Beginn des     }
 { Programmes auf 18 ("Files im Exclusive-Mode .ffnen") gesetzt     }
 { wird.                                                            }
 { ---------------------------------------------------------------- }
 { TDB verwendet als Default den Wert 34, der nur einen Lesezugriff }
 { durch andere Prozesse erlaubt.                                   }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }
 {      History:                                                    }
 { 1992-04-15   MS   Implementierung.                               }
 { ---------------------------------------------------------------- }

 {$UNDEF Windows}                  { Unter Windows: $DEFINE Windows }

 PROGRAM UNITS08;

   USES
     AShare,                     { .berpr.fung, ob SHARE geladen ist }
 {$IFDEF Windows}
     WINDOS,
     WINCRT;
 {$ELSE}
     DOS,
     CRT;
 {$ENDIF}


   VAR
     F1,
     F2             : FILE;

   BEGIN
     CLRSCR;
     WRITELN;

     IF ShareInstalled THEN
     BEGIN
       WRITELN ('SHARE ist installiert !');
       WRITELN;
     END
     ELSE
     BEGIN
       WRITELN ('SHARE ist nicht installiert !');
       WRITELN;
     END;

     FILEMODE := 18;             { Dateien im Exclusive-Mode .ffnen }
 {$I-}
     ASSIGN (F1,  'units08.pas');
     RESET (F1);

     WRITELN (IORESULT);

     ASSIGN (F2,  'units08.pas');
     RESET (F2);

     WRITELN (IORESULT);

     CLOSE (F1);
     CLOSE (F2);

     WRITELN (IORESULT);
 {$I+}
     WRITELN;
     WRITE ('Weiter ...');
     READKEY;
     WRITELN;
   END. { PROGRAM UNITS08 }

.

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson