Entwickler-Ecke

Dateizugriff - Laufwerkschreibschutz abfragen


Uli Schoch - Do 24.10.02 11:40
Titel: Laufwerkschreibschutz abfragen
Hallo zusammen
Wie kann ich feststellen, ob das in einer Drive-Combobox selektierte Laufwerk ein ReadOnly-Laufwerk ist, also eine CD oder eine Diskette mit eingeschaltetem Schreibschutz?


Gruss
Uli


georgfischerx - So 27.10.02 17:11
Titel: Léaufwerkschreibschutz ...!
Hallo,

versuche doch einfach, eine leere Datei wie folgt anzulegen:


Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
 
Function Diskwrite: Boolean;

Var F: Text;

Begin
  Assign(F, '\TEST.DAT');
  {$I-}
  Rewrite(F);
  Writeln(F, 'Test !');
  Close(F);
  Erase(F);
  {$I+}
  If (IoResult = 0) Then Begin
     DiskWrite := True;
  End  {* IF *}
  Else Begin
     DiskWrite := False;
  End; {* Else *}
End; {* Procedure *}


Dieses Beispiel liesse sich bestimmt noch optimieren, aber es
funktioniert.

Gruss, Georg


Uli Schoch - Mo 28.10.02 18:18
Hallo Georg
Ich habe das ungefähr so gemacht wie du vorschlägst und es läuft. Aber es scheint mir doch komisch, dass man den Schreibschutzzustand nicht explizit abfragen kann. Auch im Windows-Explorer sieht man unter ‚Eigenschaften‘ eines Laufwerks nicht, ob es schreibgeschützt ist

Besten Dank
Uli


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!