[<<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